Thank you! I figured out the i = 1 To 5 means the 1st through 5th worksheets
- regardless of what they are named in the tab, so was able to adjust the
formula. The MsgBox was good to test the code, but I eliminated it after it
worked since I'm turning this over to someone else to run.

Thanks again for giving me the clues to make it work - yea!!

CaroleO

"Gary''s Student" wrote:

Sub Carole()
For i = 1 To 5
If IsEmpty(Sheets(i).Range("B1")) Then
Else
MsgBox ("procesing sheet #" & i)
End If
Next
End Sub

--
Gary''s Student - gsnu200718