Run VBA on Hidden Sheets

[mtagliaferri]

I have a code which works perfectly, I need to refine the UI experience and need to hide the sheets to sheets the code runs on, of course the code wont run, so I thought to make the individual sheet visible to run the code and then hide it again.
I have tried a few variants of the below code (Worksheets / Sheets) I have also placed the code after the "With ShAcceptanceOfResignation" but everything I try gets me knowhere!

Sub CreateOpenPDF()

    Application.ScreenUpdating = False
    
    Worksheets("ShAcceptanceOfResignation").Visible = True
    With ShAcceptanceOfResignation
        .ExportAsFixedFormat xlTypePDF, Environ("Userprofile") & "\Documents\" & .Range("B16") & " " & .Range("B17") & " " & _
         Format(.Range("M26"), "YYYYMMDD") & " " & .Name & ".pdf", OpenAfterPublish:=True
   Worksheets("ShAcceptanceOfResignation").Visible = False
    End With
    
    With ShLeaversForm
        .ExportAsFixedFormat xlTypePDF, Environ("Userprofile") & "\Documents\" & .Range("D12") & " " & .Range("D13") & " " & _
         Format(.Range("E19"), "YYYYMMDD") & " " & .Name & ".pdf", OpenAfterPublish:=True
         
    End With
       
     With ShCompanyPropertyChecklist
        .ExportAsFixedFormat xlTypePDF, Environ("Userprofile") & "\Documents\" & .Range("D11") & " " & .Range("D12") & " " & _
         Format(.Range("J13"), "YYYYMMDD") & " " & .Name & ".pdf", OpenAfterPublish:=True
         
    End With
     
    Application.ScreenUpdating = True
    
  End Sub

What am I doing wrong?

 

[RoryA]

What is happening currently with that code?

 

[mtagliaferri]

What is happening currently with that code?

I am getting a Run-time error '9':

 

[RoryA]

Then you don't have a sheet with that name. If it's a code name, use:

ShAcceptanceOfResignation.Visible = True

 

[mtagliaferri]

Then you don't have a sheet with that name. If it's a code name, use:

ShAcceptanceOfResignation.Visible = True

That did the trick! Thanks for the help.