Evening.
I have supplied the code below that is in use & works as it should.
Private Sub GrassSummarySheet_Click() Dim strFileName As String
strFileName = "C:\Users\Ian\Desktop\GRASS CUTTING\CURRENT GRASS SHEETS\" & Range("A3") & " " & Range("D3") & ".pdf"
If Dir(strFileName)...