Have you tried
Application.StatusBar = "Reviewing Row [" & i & "]"

and before the End Sub put this
Application.StatusBar = False
--
HTH,

Barb Reinhardt



"Mr. Matt" wrote:
[i]
HI,
I'd like to add a message box that requires no input to the following macro.
The message box should say "Reviewing Row " and should close when the
macro is done.

THANKS!


Private Sub CommandButton1_Click()
Dim i As Long

i = 7
Do
If Sheets(2).Cells(i, 8).Value = "CLOSED" Then
Rows(i).EntireRow.Hidden = True
End If
i = i + 1
Loop Until i = 300

End Sub