Don't know your level of programming but not create a new userform and do the
following

place to buttons on it, one for saving and one to cancel

on this form insert a textbox for people to enter the save file data in

then insert this code into the userform and its problem solved as it works
fine on my system

Private Sub CommandButton1_Click()

Filename = TextBox1.Value

If TextBox1.Value = "" Then
MsgBox "please enter a name for the file"
Else

ChDir "C:\"
ActiveWorkbook.SaveAs Filename:="" & Filename & ".xls", FileFormat:
=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
UserForm1.Hide

End If

End Sub

Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub

let me know how you get on

--
Message posted via http://www.officekb.com