Could you check my code please

[ipbr21054]

Evening,
I am using the code supplied below.
I press the command button & the pdf is saved then the cells cleared so far all ok.
If i press the command button again im expecting the message box to be shown to advise me that the already exists.
This doesnt happen & the save continues once again.

Private Sub GrassSummaryIncomeSheet_Click()    Dim strFileName As String
    
            strFileName = "C:\Users\Ian\Desktop\GRASS CUTTING\CURRENT GRASS SHEETS\INCOME 2019-2020\" & _
                  Range("J3") & "_" & Format(Month(DateValue(Range("G3") & " 1, " & "2019")), "00") & " " & Range("G3")


    If Dir(strFileName) <> vbNullString Then
        MsgBox "INCOME GRASS SHEET " & Range("G3") & " " & Range("J3") & " WAS NOT SAVED AS IT ALREADY EXISTS", vbCritical + vbOKOnly, "INCOME SUMMARY GRASS SHEET MESSAGE"
        Exit Sub
    End If
    
    With ActiveSheet
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True
        MsgBox "GRASS SHEET " & Range("G3") & " " & Range("J3") & " WAS SAVED SUCCESSFULLY", vbInformation + vbOKOnly, "INCOME SUMMARY GRASS SHEET MESSAGE"
        Range("G5:H30").ClearContents
        Range("G5").Select
        ActiveWorkbook.Save
    End With


End Sub

 

[NoSparks]

add the file extension to strFileName

 

[ipbr21054]

OK

 

[ipbr21054]

Now changed & works a treat many thanks,after a while of looking at it i actually seen it ha ha.