Dim sStr as String
sStr = ""C:\Documents and Settings\"
sStr = sStr & "Administrator\My Documents\contract "
sStr = sStr & "work\jackson\AR1\"
sStr = sStr & _
ActiveWorkbook.Worksheets(1) _
.Range("B1").Text
sStr = sStr & ".csv"
ActiveWorkbook.SaveAs _
Filename:=sStr, FileFormat:=xlCSV

Might solve your problem.
Adjust to fit your requirements.
--
Regards,
Tom Ogilvy



"RANDY IN NC"
wrote in message
...

Thank you I have been able to pass the dialog boxes... but I seem to be
having trouble with the name... I inserted the process for the name
that you indicated but I am not doing something right..

Here is what the line from my macro looked like... before. but cannot
change the name as you indicate.. Please let me know what I have
wrong..

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Administrator\My Documents\contract
work\jackson\AR1\order2.csv" _
, FileFormat:=xlCSV, CreateBackup:=False

I tried but get an error.."compile error expected end of statment"


Thank you..


--
RANDY IN NC
------------------------------------------------------------------------
RANDY IN NC's Profile:
http://www.excelforum.com/member.php...o&userid=29778
View this thread: http://www.excelforum.com/showthread...hreadid=496249