Need macro to check Sheet

[Amish]

Hi !


I want some code through which i can check that opened sheet is blank and if not blank then should contiue or else should jump to some line or some other code part.

 

[VoG]

Something like this

If WorksheetFunction.CountA(ActiveSheet.UsedRange) = 0 Then
    MsgBox "sheet is blank"
Else
    MsgBox "sheet is not blank"
End If

 

[Amish]

thanks Mr. excel for Reply .

But now i am using following line
If IsEmpty(ActiveSheet.UsedRange) Then
i = True
Else
i = False
End If
If i = False Then
Rem code..........