Delete sheets with sheets name same as a list

[Rondy013]

Hi, I'm trying to delete multiple sheets that is named using values in a list at first sheet.
Below are the background and procedures to be:

There is a list located at fixed range of cells, say from A1 to A28 of 1st sheet.
The content of list varied each times, say first time maybe list of: 1, 2, 3J, 3V and next maybe: 1, 1P, 2, 2J, 3V, 3X, 3Y
The next sheets are name with these contents, say 1, 2, 3J, 3V respectively for this time.
Then, how to make the macro to select and delete the sheets by itself with referring to the list?

Advance thanks....

 

[s hal]

You could create an array as a string, pass the values into the array, select the worksheets with that variable and then delete them.

 

[Yobanlong]

Hi

Make an arry containing the names of the sheets you want to remove.

For i = 1 To NumRem      ' NumRem = Number of sheets to be removed
   SheetName = TobeRem(i)         ' TobeRem = Array containing the names of the sheets to be removed
   Application.Worksheets(SheetName).Delete
   Next i