VBA Loop

[keith.will]

I have the code written for one worksheet but how do I write it so that it will loop through all of the worksheets? With the exception of one worksheet. I want to focus on the name of the worksheet so that my macro doesn't run there. Any help at all would be greatly appreciated!

[xladept]

Like this:

Sub RunSheets()
    Dim ws As Worksheet
                  
    For Each ws In Worksheets
    If ws.name = "Forbidden_Name" Then GoTo GetNext
    'Your code here
GetNext:     Next: End Sub

[Norie]

Can you post the code you have?

[keith.will]

Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name = "Tested Party" Then GoTo GetNext
Range("G8").Select
ActiveCell.FormulaR1C1 = "2014"
GetNext: Next: End Sub

[keith.will]

JoeFoot,

Thank you for the code, I think I'm close but it's still only running the macro in the sheet i'm currently in. How can I run the macro in every sheet except the sheet named "Tested Party"?

[keith.will]

Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name = "Tested Party" Then GoTo GetNext
Range("G8").Select
ActiveCell.FormulaR1C1 = "2014"
GetNext: Next: End Sub

[JoeFoot]

I would use:

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
 
   If ws.Name <> "Tested Party" Then
      Range("G8").Select
      ActiveCell.FormulaR1C1 = "2014"
   End If

Next ws

that way no need to use the GoTo instruction

[JoeFoot]

you need to select the sheet at each iteration. This way the code runs on each sheet except "Tested Party"

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
 
   If ws.Name <> "Tested Party" Then
       ws.select
       Range("G8").Select
       ActiveCell.FormulaR1C1 = "2014"
   End If

Next ws

[Norie]

You don't need to select each sheet, and you don't need to select the cell either.

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
 
   If ws.Name <> "Tested Party" Then
      ws.Range("G8").Value = "2014"
   End If

Next ws

[keith.will]

I got it! Thanks so much guys