If Statement - Select Case - refer to specific cells

Loop through a designated list (array) of sheet names.

Sub sCheckData2()

Dim sh As Worksheet

For Each sh In Sheets(Array("Sheet1", "Sheet3"))
    If sh.UsedRange.Cells.Count > 1 Then
        ' usedrange.cells.count will = 1 if sheet empty
        ' do something with the sheet (sh) here ...
        MsgBox sh.Name & " " & sh.UsedRange.Cells.Count
    End If
Next 'sh
End Sub

Change the array to list the sheets you are interested in (and you could pull it from a sheet if you wanted)

Change the If to check the cells AA14 and AA15 as in the other examples.

Regards

TMS