VBA: Detecting multiply selected sheets

[Blargleman]

Hi there.

Hopefully someone can help me with this, cause I can't seem to find any way
to do it...

I am trying to write a bit of code that will cycle through only the sheets
that I have previously selected by clicking on their tabs (holding down
'ctrl' as if selecting multiple sheets to print) then do <something> with
each of these selected sheets, ignoring the others in the workbook. I'll be
stuffed if I can see how to do it though!

Any suggestions??

Cheers all!
Glen

 

[J.E. McGimpsey]

One way:

Dim wkSht As Worksheet
For Each wkSht in ActiveWindow.SelectedSheets
'Do something
Next wkSht

 

[Dave Peterson]

One way:

Option Explicit
Sub testme01()

Dim wks As Worksheet

For Each wks In ActiveWindow.SelectedSheets
MsgBox wks.Name
Next wks

'and to delete them
With ActiveWindow.SelectedSheets
If .Count = .Parent.Sheets.Count Then
MsgBox "Can't delete all of them"
Else
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End If
End With

End Sub

 

[Blargleman]

Cheers!

That does the job nicely!

Thanks a lot

One way:

Dim wkSht As Worksheet
For Each wkSht in ActiveWindow.SelectedSheets
'Do something
Next wkSht