VB Script: Code for "Sheets in selection"

[J@Y]

What would be the code for something like this argument:

For each sheet in sheets selected, DO
....
....
next
end

 

[Dave Peterson]

Dim wks as object
for each wks in activewindow.selectedsheets
'...
next wks