Hi Roger

Sub FindFirstEmpty()
Dim sh As Worksheet
Dim i As Integer
For i = 1 To 10
If Worksheets("T" & i).Range("A1") = "" Then
Worksheets("T" & i).Activate
Exit For
End If

HTH
Cordially
Pascal

"Roger" a écrit dans le message de news:
...


One last question. Is there a way to select and go to that sheet vs. a
message box?

Thanks - Roger


"Roger" wrote:

Hello All,

I have a group of 10 worksheets hidden in a Workbook. I'm looking for a
Macro to find the first empty sheet in that 10 page hidden group. Each
sheet
in the group is named "T" with a number next to the T (i.e. T1, T2,T3,
T4...etc).

The criteria for the page being empty is based on cell A1 being empty.

Any thoughts would be greatly appreciated.

Thank you - Roger