Inactivate message boxes

F

fabalicious

Hi.

From a macro, I want to delete all worksheets in a workbook that ar
empty. With the expression

ActiveSheet.Delete (supposed I activate each sheet one afte
another)

this happens. Problem here is that I will be asked whether I reall
wanted to delete the sheet through a message box. Is there away to tur
this off?

Thanks
 
T

Tim Zych

Application.DisplayAlerts = False
'code to delete
Application.DisplayAlerts = True
 
F

Frank Kabel

Hi
try
sub foo()
application.displayalerts=false
'your code
application.displayalerts=true
end sub
 
P

Patrick Molloy

define "empty"


you must keep at least one sheet


Sub RemoveEmptySheets()
Dim ws As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.UsedRange.SpecialCells
(xlCellTypeLastCell).Address = "$A$1" Then
ws.Delete
End If
Next

Application.DisplayAlerts = True

End Sub


Patrick Molloy
Microsoft Excel MVP
 
F

fabalicious

Thanks a lot!

Patrick: 'empty' means completely blank (no cell in the shee
containing any value)
Your code seems to work fine. Unless there's a value in A1 and the res
is empty. Such a sheet will be deleted. But that's not of bi
importance for my purpose...
 
Top