Ha érdekel a téma, akkor itt egy progi, ami megvizsgálja, egy munkafüzetben, hogy üres-e a munkalap.

   
    Dim EgyCella As Boolean
    Dim A1EsCella As Boolean
    Dim A1Ures As Boolean
    Dim lap As Object

    For Each lap In Worksheets
        EgyCella = lap.UsedRange.Cells.Count = 1
        If EgyCella Then A1EsCella = lap.UsedRange.Address = Cells(1).Address
        A1Ures = lap.Cells(1) = ""
        If EgyCella And A1EsCella And A1Ures Then
            'üres a munkalap

        Else

            'nem üres a munkalap

        End If
    Next lap