Identifying Multiple Selected Worksheets

D

DavidMatthews

Hi,

I'm trying to create a macro that will only affect the worksheets that are currently selected (when a user uses ctrl+click on multiple worksheet tabs). How do I identify which worksheets are selected in VBA?

Thank you very much,
-David
 
M

Michael Malinsky

This code shows a message box for each selected worksheet in the workbook:

For Each sh In Workbooks("BOOK2.XLS").Windows(1).SelectedSheets
MsgBox sh.Name
Next

HTH

--
Michael J. Malinsky
Pittsburgh, PA

"I am a bear of very little brain, and long
words bother me." -- AA Milne, Winnie the Pooh

DavidMatthews said:
Hi,

I'm trying to create a macro that will only affect the worksheets that are
Click to expand...
currently selected (when a user uses ctrl+click on multiple worksheet tabs).
How do I identify which worksheets are selected in VBA?
 
R

Ron de Bruin

Hi David

You can loop through them like this

Sub test()
Dim sh As Worksheet
For Each sh In ActiveWindow.SelectedSheets
MsgBox sh.Name
Next
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


DavidMatthews said:
Hi,

I'm trying to create a macro that will only affect the worksheets that are currently selected (when a user uses ctrl+click on
Click to expand...
multiple worksheet tabs). How do I identify which worksheets are selected in VBA?
 
Top