Search macro adjustment

[TomBP]

I'm making use of the following save macro at the moment:


Code:
--------------------
Sub Save()
'
' Save Macro
' Macro recorded 7/07/2006 by BPPassPort User
'
' Keyboard Shortcut: Ctrl+t
'
Dim s As String, s1 As String
s = ActiveSheet.Range("F10").Text
s1 = "C:\Documents and Settings\" & _
"fackt0\Desktop\Excel probleem\Shipments\"
ActiveWorkbook.SaveAs _
Filename:=s1 & s & ".xls", _
FileFormat:=xlNormal, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
--------------------



_What_does_it_do?_
When I run my save macro by pushing the Save button it will save the
document as the name 6666.xls in the map Shipments on my desktop.

_What_is_the_problem?_
It closes my original xls file (Receipt Note - Tom Fack.xls) and
changes it to 6666.xls.

_What_do_I_want?_
I want it to save 6666.xls to the map shipments but I want to continue
working in the original xls file (Receipt Note - Tom Fack.xls). So when
I press save, it looks like nothing happened. An extra feature would be
that when people press save a message will pop up with "Your file has
been saved".

Here are some pictures so you can see what I'm talking about:

[image: http://i54.photobucket.com/albums/g115/TomBP/savemacro.jpg]

[image: http://i54.photobucket.com/albums/g115/TomBP/6666.jpg]

 

[Ardus Petus]

Use SaveCopyAs instead of SaveAs

HTH

 

[TomBP]

I did what you said and it gave the following error:

[image:
http://i54.photobucket.com/albums/g115/TomBP/errorsavebutton.jpg]

 

[Ardus Petus]

Sub Save()
'
' Save Macro
' Macro recorded 7/07/2006 by BPPassPort User
'
' Keyboard Shortcut: Ctrl+t
'
Dim s As String, s1 As String
s = ActiveSheet.Range("F10").Text
s1 = "C:\Documents and Settings\" & _
"fackt0\Desktop\Excel probleem\Shipments\"
ActiveWorkbook.SaveCopyAs _
Filename:=s1 & s & ".xls"
End Sub


HTH

 

[TomBP]

It works now. Thank you for your help.