Skipping Empty Sheets

[a long time ago]

Hi All,

I am trying to find a solution about skipping the blank sheets and then selecting the first the sheet which contains a data.

For example, I have 8 sheets and only the sheet3 contains data. My aim is to select this sheet with a macro?

Any help would be appreciated.

Thanks,

 

[GTO]

As long as the blank sheets are truly 'clean', maybe we coud use UsedRange.

Option Explicit
    
Sub exa2()
Dim i As Long
    
    For i = 1 To ThisWorkbook.Worksheets.Count
        With ThisWorkbook.Worksheets(i)
            If Not (.UsedRange.Cells.Count = 1 _
                    And .UsedRange.Address = "$A$1" _
                    And .Cells(1) = vbNullString) Then
                
                .Select
                Exit For
            End If
        End With
    Next
End Sub

 

[a long time ago]

GTO,

Thanks for your help. It worked