Save as new file command button

[EnGo]

I am trying to create a macro with a command button that will save the
worksheet as a file name specified by the user name or as a field title in
the spreadsheet.
Here is what I have right now that I keep getting a error with:
Private Sub SaveButton_Click()

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\MYoung\Desktop\h&h VALVE\" &
Range("Company:"), _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

If someone could please help with with this error and coding problem.

 

[N10]

I am trying to create a macro with a command button that will save the
worksheet as a file name specified by the user name or as a field title in
the spreadsheet.
Here is what I have right now that I keep getting a error with:
Private Sub SaveButton_Click()

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\MYoung\Desktop\h&h VALVE\" &
Range("Company:"), _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

If someone could please help with with this error and coding problem.

Does your named range end with a : as in Range("Company:") ? or should it
be Range("Company"),

 

[EnGo]

N10: It ends with a colon), does that pose a problem. I can remove the
colons from the tables if so.