Thanks Jason. There was a bug in this that I couldnt work out. Thanks for
your help though. The next three worked....

"Jason Morin" wrote:

Try something like:

Sub Test()
Dim mypath As String
Dim sfile As Range, sdir As Range

mypath = "R:\SALES\Team 318\"
Set sfile = Sheets("Sheet1").Range("A1")
Set sdir = Sheets("Sheet1").Range("B2")

ThisWorkbook.SaveAs Filename:=mypath & sdir & "\" & sfile

End Sub

---
HTH
Jason
Atlanta, GA

-----Original Message-----
Hi

Two cells A1 & B2

I am trying to create a Macro to attach to a button to
Save an .xls as

"A1".xls in directory R:/SALES/Team 318/"B2"

instead of typing it in all of the time....

Any helpers? Past attempts at this have failed.....the
winner will get a big
MVP vote!

Absolute respect

Andy

.