Hello All,

I have a group of 10 worksheets hidden in a Workbook. Im 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

Hello Roger
Sub FindFirstEmpty()
Dim sh As Worksheet
Dim i As Integer
For i = 1 To 10
If Worksheets("T" & i).Range("A1") = "" Then
MsgBox "First empty cell found in sheet T" & i
Exit For
End If
Next i
End Sub

"Roger" a écrit dans le message de news:
...
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

Thank you Papou - works great!

Roger

"papou" wrote:

Hello Roger
Sub FindFirstEmpty()
Dim sh As Worksheet
Dim i As Integer
For i = 1 To 10
If Worksheets("T" & i).Range("A1") = "" Then
MsgBox "First empty cell found in sheet T" & i
Exit For
End If
Next i
End Sub

"Roger" a écrit dans le message de news:
...
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

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. Im 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

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