Check for two sheets. Add or subtract as necessary.
Hi Colin,
Am Wed, 18 Jun 2014 14:57:38 +0100 schrieb Colin Hayes:
Sheet1
Becomes
Sheet1 Sheet2
Sheet1 Sheet2 Sheet3 ...
Becomes
Sheet1 Sheet2
try:
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.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional
|