Run-time error '1004'; Hopefully a simple fix

If [KNSales] = 0 Then
    'KN Saving
    'Saving CSV for KN
    Sheets("KN").Select
    ChDir _
        "A:\Kitchn\Invoices 2016"
    ActiveWorkbook.SaveAs Filename:=InvoiceMonth, _
    FileFormat:=xlCSV, CreateBackup:=False
    'Saving PDF for KN
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=InvoiceMonth, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
    Else: End If

Is there something obvious missing that im getting this error?: http://i.imgur.com/fgxmTit.png

Re: Run-time error '1004'; Hopefully a simple fix

Quote from Grimes0332;768367

I would have thought the error message covered just about all the options. Have you checked the directory exists, you have permissions etc etc?

Yes, the directory exists as i work in them everyday, Deleting, creating files etc so i have full permission to do everything.

Re: Run-time error '1004'; Hopefully a simple fix

Quote from Grimes0332;768370

So the value of InvoiceMonth is?

This at the top of the Code:

' Invoice Month
    Range("H4").Select
    InvoiceMonth = Range("'Information'!H4").Value

Which in the cell is simply the word: March

Re: Run-time error '1004'; Hopefully a simple fix

Quote from Grimes0332;768376

There are 3 lines where that error could be raised. Which one?

These are the lines that are highlighted when i click debug:

ActiveWorkbook.SaveAs Filename:=InvoiceMonth, _
    FileFormat:=xlCSV, CreateBackup:=False