VBA experts, I need guidance on VBA code to do a few things.

[jherrera]

I have been looking for a VBA subroutine to add it into a "main routine." My program will always have three sheets: the "start" sheet (permanent sheet), "a," and "b" or "x" and "z" (only two scenarios). What I want to accomplish is this:
1. The main VBA routine is running, then
2. If sheet "a" exists, then insert in sheet "b," cell $D$1, a formula that refers to the "start" sheet (=start!$F$1).
3. If "a" does not exist but "x" exists, then insert in sheet "z," cell $D$1, a formula that refers to the start sheet (=start!$F$2).
4. Do nothing if sheets "a" and "x" do not exist.
4. Then, continue running and finishing the main routine.
Thank you for your help!

 

[Peter_SSs]

Welcome to the MrExcel Message Board!

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: VBA experts, I need guidance on VBA code to do a few things.
There is no need to repeat the link(s) provided above but if you have posted the question at other places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[iggydarsa]

Sub Main()
    '
    '
    '
    '
    InsertX
    '
    '
    '
    '
    
End Sub

Sub InsertX()
    For Each sh In Worksheets
        If sh.Name = "a" Then Worksheets("b").Range("D1").Formula = "=start!$F$1"
        If sh.Name = "x" Then Worksheets("z").Range("D1").Formula = "=start!$F$2"
    Next sh
End Sub

 

[Skyybot]

Put cell_check in the main Sub where you want it to run.

Sub cell_check()
Dim wb As Workbook, sht As Worksheet
Set wb = ThisWorkbook
For Each sht In wb.Sheets
    If sht.Name = "a" Then
        wb.Sheets("b").Range("D1").Formula = "=start!$F$1"
        Exit Sub
    ElseIf sht.Name = "x" Then
        wb.Sheets("z").Range("D1").Formula = "=start!$F$2"
        Exit Sub
    End If
Next sht
End Sub