Tom Ogilvy Wrote:
assume the number is in F7 of the activesheet

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 4/07/2006 by BPPassPort User
'
' Keyboard Shortcut: Ctrl+t
'
Dim s as String, s1 as String
s = Activesheet.Range("F7").Text
s1 = "C:\Documents and Settings\" & _
"morgand\Desktop\Shipments\"
ActiveWorkbook.SaveAs _
Filename:=s1 & s & ".xls", _
FileFormat:=xlNormal, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub


I tried this for an other example and got the following error:

[image: http://i54.photobucket.com/albums/g1...celreply1.jpg]

When I press Debug it shows this:

[image: http://i54.photobucket.com/albums/g1...celreply2.jpg]

Am I doing something wrong or is the code not right? Keep in mind that
my knowledge of macro's is not that good :)


--
TomBP
------------------------------------------------------------------------
TomBP's Profile: http://www.excelforum.com/member.php...o&userid=36112
View this thread: http://www.excelforum.com/showthread...hreadid=558858