Dim s as String
s = Replace(range("J3").Text," ","")
s = s & Range("U3").Text
Activesheet.Parent.SaveAs "C:\MyFolder\" & s & ".xls"

--
Regards,
Tom Ogilvy


"Anthony" wrote:

Hi,

At the end of my vb code I would like the worksheet to be saved giving it
the name of 2 cell refs
1st cell ref J3 which holds a date ie 15 March 2007
2nd cell ref U3 which holds a game number

so example J3 = 15 MARCH 2007 , U3 = GAME 4

save worksheet name as 15MARCH2007GAME4

any ideas ?
thanks