Opgelost Keert na opslaan PDF terug naar ander tabblad

[Han...]

Onderstaande code werkt perfect.
Echter is er 1 ding wat ik niet voor elkaar krijg.

Er zijn in totaal 9 tabbladen en onderstaande code zorgt ervoor dat tabblad 1 niet wordt geprint maar de overige 8 wel.
Dit is ook de bedoeling.
Maar zodra onderstaande z'n werk heeft gedaan keert hij altijd terug naar tabblad 2 en ik zou het prettiger vinden als hij in tabblad 1 blijft. Daar zit ook snelknop met onderstaande code waarop ik geklikt heb.
Is dit eenvoudig aan te passen?

Sub OpslaanAlsPDF()
Dim Naam As String
Dim Datum As String
Naam = Blad1.Range("e4").Value
Datum = Format(Now, "dd-mm-yyyy")
If Dir("V:\VERZAMEL\ANNO NU\" & "TEST " & Naam & " - " & Datum & ".pdf") = "" Then
With ThisWorkbook
.Sheets(1).Visible = False
.ExportAsFixedFormat 0, "V:\VERZAMEL\ANNO NU\" & "TEST " & Naam & " - " & Datum, , , , , , -1
.Sheets(1).Visible = True
End With
Else
MsgBox "Het bestand: " & "TEST " & Naam & " - " & Datum & ".pdf bestaat reeds"
End If

End Sub

 

[peter59]

Zo??? ChatGPT.

Sub OpslaanAlsPDF()
Dim Naam As String
Dim Datum As String

Naam = Blad1.Range("e4").Value
Datum = Format(Now, "dd-mm-yyyy")

If Dir("V:\VERZAMEL\ANNO NU\" & "TEST " & Naam & " - " & Datum & ".pdf") = "" Then
    With ThisWorkbook
        .Sheets(1).Visible = False
        .ExportAsFixedFormat 0, "V:\VERZAMEL\ANNO NU\" & "TEST " & Naam & " - " & Datum, , , , , , -1
        .Sheets(1).Visible = True
        .Sheets(1).Activate   ' <-- dit zorgt dat je teruggaat naar tabblad 1
    End With
Else
    MsgBox "Het bestand: " & "TEST " & Naam & " - " & Datum & ".pdf bestaat reeds"
End If

End Sub

 

[Han...]

Eerlijk gezegd had ik er niet zoveel vertrouwen in.
Chat GPT had ik ook al geraadpleegd maar toen werkte het nog steeds niet.
Verbouwde de hele code.
Maar nu...
Deze werkt helemaal. Alleen maar het toevoegen: .Sheets(1).Activate is al voldoende.
Bijzonder.
Maar heel erg bedankt voor meedenken @peter59

Mijn probleem is opgelost!

 

[Lampie173]

Ik dacht dat je Activate, Select zoveel mogelijk moest mijden?
Of speelt dit hier geen rol?

 

[snb]

Door vanuit Blad1 Blad1 onzichtbaar te maken wijzig je tegelijkertijd ook het aktieve werkblad naar Blad2. Als je daarna Blad1 weer zichtbaar maakt gaat de Selection niet automatisch naar Blad1.

Sub M_snb()
  c00 = "V:\VERZAMEL\ANNO NU\TEST " & Blad1.Range("e4") & "_" & Date & ".pdf"
   
  If Dir(c00) = "" Then
    Blad1.Visible = False
    ThisWorkbook.ExportAsFixedFormat 0, c00
    Blad1.Visible = True
    Blad1.Activate
  End If
End Sub