Sub macros_sample()
Dim baserange As Range
Dim cl As Range
Set baserange =
Sheets("Sheet1").Range("a2:a2500").SpecialCells(xlCellTypeVisible)
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
For Each cl In baserange
If cl.Value <> ""
I think I've taken a half step forward. But now I'm locked in a circular
argument with Excel. It keeps telling me I have a next without a for. If
I remove the offending next it tells me I have a for without a next.
Here's where I am now:
Sub Check_Static()
Dim CompareRange As
