This is the code I came up with. It seems to work so I guess that is all I
need. I don't think I need to password it.

With ActiveWorkbook.Worksheets("sheet1")
.Parent.SaveAs Filename:=.Range("B1").Value & .Range("C1"). _
Value & .Range ("E1").Value & ".xls"
End With

Thanks everyone


"Larry" wrote:

How would I go about saving a file as the concatenation of B1,C1, and E1 in a
macro