Hi Howard,
Am Tue, 9 Apr 2013 02:47:53 -0700 (PDT) schrieb Howard:
I tried the code in the sheet vb editor and it deleted the sheets but the names and formulas to the right remain intact.
that is when the selected cells are not connected.
Place the code in a standard module.
Try:
Sub DeleteSheets()
Dim rngC As Range
Application.DisplayAlerts = False
For Each rngC In Selection
Sheets(rngC.Text).Delete
rngC.Resize(, 5).ClearContents
Next
Range("C8:G32").Sort key1:=[C9], order1:=xlAscending, Header:=xlYes
Application.DisplayAlerts = True
End Sub
Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2