Save File with Current Month and Day

FileDrive = “C:\ANewFolder\”
Filename = “Test-” & Format(Date, “mmm-dd”) & “.xls”
If Len(Dir(FileDrive, vbDirectory)) = 0 Then
MkDir FileDrive
End If

ActiveWorkbook.SaveAs Filename:=FileDrive & Filename, _
FileFormat:=xlNormal