Try

If Range("A1").Value = "" Then
Application.DisplayAlerts = False
Worksheets("Sheet1").Delete
Application.DisplayAlerts = True
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"STEVEB" <STEVEB.22iaty_1138723203.5802@excelforum-nospam.com>
wrote in message
news:STEVEB.22iaty_1138723203.5802@excelforum-nospam.com...
>
> Hi
>
> Does anyone have any suggestions for deleting an entire sheet
> in a
> workbook if Cell A1 in the Sheet is blank?
>
> Thanks
>
>
> --
> STEVEB
> ------------------------------------------------------------------------
> STEVEB's Profile:
> http://www.excelforum.com/member.php...fo&userid=1872
> View this thread:
> http://www.excelforum.com/showthread...hreadid=506797
>