Hi,
Code supplied below but when i run it to save as a pdf file the line shown below in in yellow.
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True
Private Sub GrassSummarySheet_Click() Dim strFileName As String...