Thread: Check for two sheets. Add or subtract as necessary.
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Colin Hayes Colin Hayes is offline
external usenet poster
  
Posts: 465
Default Check for two sheets. Add or subtract as necessary.

Sub SheetCheck()
Dim i As Long

Select Case Sheets.Count
Case 1
Sheets.Add after:=Sheets(Sheets.Count)
Case Is 2
For i = Sheets.Count To 3 Step -1
Application.DisplayAlerts = False
Sheets(i).Delete
Application.DisplayAlerts = True
Next
End Select
End Sub


Regards
Claus B.

Hi Claus

OK thanks for this. Perfect first time.


Best Wishes ,

Colin
Reply With QuoteReply With Quote