View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Otto Moehrbach[_2_] Otto Moehrbach[_2_] is offline
external usenet poster
 
Posts: 1,071
Default Is Sheet Empty and unused

Try this macro. HTH Otto
Sub IsSheetEmpty()
If Application.CountA(Cells) = 0 Then
MsgBox "It's empty."
Else
MsgBox "It's not empty."
End If
End Sub


"Vsn" <vsn_hotmail_kom wrote in message
...
Hi all,

I was thinking is there a methode in VBA to see if a sheet has been used
or that it is empty so that i can remove it from the workbook knowing i do
not loose data or better rename it an put the next bunch of data comming?

Thx,
Ludovic