N Nick Hodge May 10, 2005 #2 Nigel Sub QuietDelete With Application .DisplayAlerts = False Worksheets("Sheet1").Delete .DisplayAlerts = True End With End Sub -- HTH Nick Hodge Microsoft MVP - Excel Southampton, England (e-mail address removed)
Nigel Sub QuietDelete With Application .DisplayAlerts = False Worksheets("Sheet1").Delete .DisplayAlerts = True End With End Sub -- HTH Nick Hodge Microsoft MVP - Excel Southampton, England (e-mail address removed)