Hi Howard,

Am Tue, 9 Apr 2013 10:36:06 -0700 (PDT) schrieb Howard:

I'm thinking I see a problem when I select from a list of 10 names,
say the 4th, 7th, 9th and run delete code it kinda messes up, but I need to gather real specifics before I come to you with that. Using single digit numbers as sheet names may also be a problem. But applying strict do's and don't rules for use of codes to the end user seems reasonable to me.

you also can dump the selected cells in an array, group the sheets with
the selected names and delete them at once:

Sub ShDelete()
Dim i As Integer
Dim myArr() As Variant
Dim rngC As Range

Application.DisplayAlerts = False
ReDim myArr(Selection.Cells.Count - 1)
For Each rngC In Selection
myArr(i) = rngC.Text
rngC.Resize(, 5).ClearContents
i = i + 1
Next
Sheets(myArr()).Select
ActiveWindow.SelectedSheets.Delete
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