[EXCEL e VBA] Verificare che un foglio sia vuoto

[nicola75ss]

Sub vuoto()
    If WorksheetFunction.CountA(Cells) = 0 Then
         MsgBox "foglio vuoto"
    Else
        MsgBox "contiene qualcosa"
    End If
End Sub