Trying to Save to A: Drive

I'm trying to get the following code to save to my A: Drive, but it saves to my C Drive (the default drive).

I'm obviously a beginner, can anybody help me out?

Thanks.

Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
ActiveSheet.Paste
Range("A1").Select
ChDir "A:\"
Application.DisplayAlerts = False
fn = Month(Now()) & "-" & Day(Now()) & "-" & Year(Now())
ActiveWorkbook.SaveAs Filename:=fn, FileFormat:=xlCSV
Application.DisplayAlerts = False
ActiveWindow.Close
End Sub