Saving to Specific folder - Dependent on month

Hi,

I'm very new to macro so please bare with me

Basically, i want my file to be saved in the directory dependent on the month we are currently in.

Currently i have the macro as follow:

ChDir "D:\P&L\2014"
    ActiveWorkbook.SaveAs Filename:= _
        "D:\P&L\2014\ " analysis v1.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

So instead of "D:\P&L\2014\" it'll be "D:\P&L\2014\Jan"

Thanks