Thread: avoid warning when removing sheet
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Snake Plissken[_2_] Snake Plissken[_2_] is offline
external usenet poster
  
Posts: 75
Default avoid warning when removing sheet

like this I suppose:

iSheetMax = Sheets.Count

' Delete other sheets
application.DisplayAlerts =False
For iSheet = 2 To iSheetMax
Sheets(2 + iSheetMax - iSheet).Delete
Next
application.DisplayAlerts =true



Reply With QuoteReply With Quote