View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Ron de Bruin Ron de Bruin is offline
external usenet poster
 
Posts: 11,123
Default 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