I changed P to C and created you structure. This revision worked fine for
me. (I changed C back to P).


Sub AAAA()

sName = "P:\clevedon staff\activities\" & _
Application.UserName & "\" & Application.UserName _
& " " & Format(Now, "DDMMYY") & " ActivityLog.csv"

If Dir(sName) < "" Then
Kill sName
End If
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
sName, FileFormat:=xlCSV, _
Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Saved = True
Application.Quit
Application.DisplayAlerts = True

End Sub

--
Regards,
Tom Ogilvy


"Joseph" wrote in message
...

Hi Tom,

I just got a method 'saveas' of object 'workbook' failed. Any Ideas?

Cheers


--
Joseph


------------------------------------------------------------------------
Joseph's Profile:
http://www.excelforum.com/member.php...fo&userid=5637
View this thread: http://www.excelforum.com/showthread...hreadid=277733