Bob/Kevin

This works for me.......

Public Sub lookat()
For Each s In ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3"))
MsgBox s.Name 'just as an example
Next s
End Sub

Gord Dibben XL2002

On Thu, 27 Nov 2003 21:34:15 -0000, "Bob Phillips"
wrote:

Kevin,

I am not sure what you are trying to do, access the 3 sheets, or name them,
but the for Next loop should look like

For Each s In ThisWorkbook.Worksheets
MsgBox s.Name 'just as an example
Next s

You cannot do a For next on an array of sheet names as you seem to be trying
to do, but only on the whole collection.

You could test within the loop, like so

For Each s In ThisWorkbook.Worksheets
If s.Name = wsPLimagine Or s.Name = wsPLos Or s.Name = wsPLcurrency
Then
' do your stuff
End If
Next s