VBA: Pass a sheet to another sub

[FryGirl]

I need to loop thru a specified number of worksheets and run a sub. I would like to keep the two subs separately since it actually has two purposes.

Basically, If Sheet5.Range("B1").value = "Prod" then I need to loop thru the 12 sheets, but if not, then I need to just run the Sub RunMe on Sheet3.

I've crafted an initial sub, but not sure how to pass between the two.

[FONT=Times New Roman][COLOR=#000000]Sub FillEachWs()[/COLOR][/FONT]
[COLOR=#000000][FONT=Times New Roman]    Dim i As Long[/FONT][/COLOR]
[COLOR=#000000][FONT=Times New Roman]    For i = 1 To 12[/FONT][/COLOR]
[COLOR=#000000][FONT=Times New Roman]        If Sheet5.Range("B1").Value ="Prod" Then[/FONT][/COLOR]
[COLOR=#000000][FONT=Times New Roman]            With Sheets(CStr(i))[/FONT][/COLOR]
[COLOR=#000000][FONT=Times New Roman]                Call RunMe[/FONT][/COLOR]
[COLOR=#000000][FONT=Times New Roman]            End With[/FONT][/COLOR]
[COLOR=#000000][FONT=Times New Roman]        Else[/FONT][/COLOR]

[COLOR=#000000][FONT=Times New Roman]    Next i[/FONT][/COLOR]
[FONT=Times New Roman][COLOR=#000000]End Sub[/COLOR][/FONT]

[FONT=Times New Roman][COLOR=#000000]Sub RunMe()[/COLOR][/FONT]
[COLOR=#000000][FONT=Times New Roman]    Sheet3.Range("AU1").Value ="Check"[/FONT][/COLOR]
[FONT=Times New Roman][COLOR=#000000]End Sub[/COLOR][/FONT]

 

[FryGirl]

If there are multiple sheets in the workbook, do you still want to put "Check" in cell AU1 on Sheet3, and what do you want to do to the other sheets?

Yes, there will always be a Sheet3 no matter what and it should always get "Check" in AU1. If there are more numbered sheets (1, 2, 3, 4, 5, 6 etc.), those will get "Check" also.​

 

[JoeMo]

Then Fluff's code in post #8 should work for you.

 

[Fluff]

If you only want it to happen for sheets with a number, try

Sub FillEachWs()
   Dim Ws As Worksheet
   For Each Ws In ThisWorkbook.Worksheets
      If IsNumeric(Ws.Name) Then Ws.Range("AU1").Value = "Check"
   Next Ws
End Sub

 

[FryGirl]

Then Fluff's code in post #8 should work for you.

But that code will act on every sheet. I have a sheet named "Instructions", "Chart", "Control Panel", and about five other sheets I do not need this run on.

 

[Fluff]

See post#13

 

[JoeMo]

Then see Fluff's code in post #13 .

 

[FryGirl]

Yes, thank you Fluff and Joe. Post #13 did the trick.

Sorry it took so long.

 

[Fluff]

Glad we could help & thanks for the feedback