Looping through unkown sheet names

Dim ws as Worksheet

For Each ws in ActiveWorkbook.Worksheets

'code here

Next

And if you want to exclude a particular sheet:

Dim ws as Worksheet

For Each ws in ActiveWorkbook.Worksheets

If ws.Name <> "Important Sheet Name" Then

'code here

End If

Next