sr
The syntax is correct. The two lines under your error should be one line.
They probably got wrapped in the message.
--
Dick Kusleika
MVP - Excel
www.dicks-clicks.com
Post all replies to the newsgroup.
"sr" wrote in message
...
Thanks for the response. Unfortunately, I get a syntax
error for the code for the last line below..........
Dim Start As Date, Finish As Date
Start = Now
Range("br3").Select
Application.ScreenUpdating = False
While ActiveCell < ""
If ActiveCell + ActiveCell.Offset(0, 1) < 1 Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Wend
Application.ScreenUpdating = True
Finish = Now
************Syntax Error***********
Application.StatusBar = "Time taken=" & Format((Finish -
Start), "ss")
End Sub
-----Original Message-----
Try this:
Dim Start As Date, Finish As Date
Start = Now
' Procedure
Finish = Now
Application.StatusBar = "Time taken=" & Format((finish -
Start), "ss")
HTH
Helen
.