Here you go then:-

Sub Macro1()
fname = "(" & Range("B1") & ")" & Range("D1") & Range("H1") & "_" &
Range("T1") & ".xls"
pathname = "C:\Documents and Settings\" ' Substitute your pathname here
ActiveWorkbook.SaveAs Filename:=pathname & fname, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

P.S. How's the cat?

"Ron M." wrote:

I tried that. It doesn't work. It pastes into the Filename box (in the
Save As window) as:

(15)45345Abilene_1.xls .xls

Here's the formula I'm using, by the way. The data is in B1, D1, H1 and
T1. Just a simple ()&()&()&().... :

=("(")&(B1)&(")")&(D1)&(H1)&("_")&(T1)

What I'd REALLY like to have is just a button, where the user could
click it, and it would do a Save As with this filename, then close the
file, but I hate to beg.

Thanks a bunch,
Ron M.