ExcelBanter - Find all non blank cells

See you other thread

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm

"chaves" wrote in message ...
I have code that kicks off when a worksheet is activated:

Private Sub Worksheet_Activate()
For Each c In ActiveSheet.UsedRange
If c.Value < "" Then
CheckValue
End If
Next
End Sub

This works, but takes a few minutes to run, even though there are only
rougly 200 cells with values (the CheckValue sub is tiny) - any suggestions
how to speed this up?

Thank you all!

Andrew