VBA kodumu bir PDF olarak Kaydet çalışmaz. Birisi onu okuyabilir ve neyi yanlış yaptığımı görebilir mi?

Sub SaveAsPDF()
    Dim NewFN As Variant
    NewFN = "C:\Users\Brock\Desktop\MPI\Financials\" & Range("b10").Value & ".pdf"
    Dim ActiveWorksheet As Variant
    ActiveWorksheet = "sheet1"
    ActiveWorksheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewFN, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Her seferinde 424 hatası ortaya çıkıyor. Vurgulanan kısım:

ActiveWorksheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewFN, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

Meselenin benim için ne olduğunu bulamıyorum. VBA kodunu gittiğim gibi kodlamayı öğreniyorum, bu yüzden ne anlama geldiğini bilmiyorum!

ActiveWorkSheet bir çalışma sayfası olmalı ya da WorkSheets() bir dize olarak kullanırken.

Çalışma Sayfası Olarak:

Dim ActiveWorksheet As WorkSheet
Set ActiveWorksheet = WorkSheets("sheet1")

Olduğu gibi:

Dim ActiveWorksheet As Variant
ActiveWorksheet = "sheet1"
Worksheets(ActiveWorksheet).ExportAsFixedFormat ...

Hatayı alıyorsunuz çünkü:

"sheet1".ExportAsFixedFormat

VBA'da çalışmıyor.