Hi,I'm having trouble with the code below, it moves through the first worksheet without any trouble but it doesn't move to the next ws after executing the Next ws line. Any ideas on what could be going wrong or am i missing something?
Code
For Each ws In WorksheetsSelect Case UCase(ws.Name)Case "Index", "Master", "Data", "Summary", "Charts"'Do nothingCase Else ActiveSheet.Range("A1").Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(0, 1).Select Loop ActiveCell.Formula = "=SUBTOTAL(103, F2:F12000)" ActiveCell.Offset(0, 1).Formula = "=COUNTIF(G:G,""Met"")" ActiveSheet.Range("A1").Select End SelectNext ws
Thanks, it's driving me mad!!