On Tue, 28 Oct 2008 16:01:29 +1100, "NoodNutt"
wrote:


G'day John

Try this code instead, it Compiled OK, so it should be alright.

I will give your second suggestion a try later, but in the meantime I
found that the following seems to work:

strFilename = "C:\Documents and Settings\" & Environ("username") &
"\My Documents\" & Title & ".xls"
If MsgBox("Do you want to save this file to your computer (My
Documents) with the following filename?" & Chr(10) & strFilename,
vbYesNo) = vbYes Then
ActiveWorkbook.SaveAs strFilename
End If

It appears the specifying the full path is required, don't know why
using "C:\My Documents" wouldn't work????

Thanks for the ideas.


John Keith