I'm still learning so I do not know what this is supposed to replace or achieve.

I've changed my code to this, but this is not working. If this is checking the first cell then it won't work as any data being processed will have nothing in that cell.

Private Sub cmdWarning_Markers_Click()

    Dim CalcMode As Long, ViewMode As Long

    For Each ws In Worksheets
        If ws.name Like "Warning_Markers*" Then
            
            If ws.UsedRange.Address <> "$A$1" Then
                MsgBox ws.name & " is empty"
                
                Exit Sub
            End If
            
        Else