For Each Worksheet in... not moving to next worksheet.

Re: For Each Worksheet in... not moving to next worksheet.

- If you convert to upper case (UCase), how can you then end up with Index, Master, or other names?
- What is the activeworkbook at the moment of executing the code?

Re: For Each Worksheet in... not moving to next worksheet.

Try this:

For Each ws In Worksheets
      Select Case LCase(ws.Name)
         Case "index", "master", "data", "summary", "charts"
            'Do nothing
         Case Else
            With ws
               With .Cells(1, .Columns.Count).End(xlToLeft)
                  .Formula = "=SUBTOTAL(103, F2:F12000)"
                  .Offset(0, 1).Formula = "=COUNTIF(G:G,""Met"")"
               End With
            End With
      End Select
   Next ws

Note: your check on the sheet names would never work as you were comparing an upper case word against proper case, so I changed that too.

Re: For Each Worksheet in... not moving to next worksheet.

Because you never select or activate any worksheet, you simply use [vb] ActiveSheet.Range("A1").Select
[/vb] in the Select Case statement so it defaults to whatever is the activesheet when you start the procedure.

I don't know what you did to start with, but please do something about the formatting of your post - it's a pain to read.

Re: For Each Worksheet in... not moving to next worksheet.

Sorry - forgot to offset:

With .Cells(1, .Columns.Count).End(xlToLeft).offset(, 1)

The code converts the sheet name to lower case for the comparison using LCase.