Esportazione foglio di lavoro non attivo in .pdf

Buongiorno a tutti,
ho creato il seguente codice per esportare in .pdf il foglio di lavoro in cui sto lavorando (foglio attivo).

Sub Esporta_file_dati()
Application.ScreenUpdating = False
Dim p As Worksheet
Dim Directory As String
Dim NomeFile As String

Set p = Worksheets("Dati")

Directory = p.Cells(25, 3).Value
NomeFile = p.Cells(26, 3).Value

ChDir Directory
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Directory + NomeFile, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.ScreenUpdating = True
End Sub

Adesso ho il problema di dover esportare, dal foglio di lavoro in cui sto lavorando, un altro foglio di lavoro (foglio non ATTIVO).
Potreste darmi una mano a modificare la macro creata?