troouble is, it keeps falling over with a "named argument already specified" error. But I don't know where?
Here's the main bit;
Code: Select all
MsgTit = ActiveSheet.Name & " saved"
FPAth = "F:\ISO 18001\Legal Compliance\Compliance Audits\"
strFullName = FPAth & ActiveSheet.Name & " " & Format(Date, "MMYY") ' & ".xls"
If Dir(strFullName) = "" Then
' File does not exist yet
ActiveSheet.Copy
ActiveWorkbook.SaveAs , Filename:=strFullName, FileFormat:=xlExcel9795