Printing Macro with Array of Sheets

[nkw2306]

So the Macro I have done should work and I'm not sure why it doesn't. It keeps coming back with a Run Time Error 1004

Sub export_Data()
'
Sheets(Array("Period Actuals vs Budget Graph", "Weekly Actuals vs Budget", _
"Yearly Actuals vs Budget", "Data")).Select
Sheets("Data").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\WilcoxN\Documents\Stations\Root Cause\Root Cause PDFs\Stations Root Cause " & ThisWorkbook.Sheets("Data").Range("A2").Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub

I have double checked the file name and its correct.

Any Suggestions are most welcome!

 

[nkw2306]

Solved it!