Save as new file command button
 

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.

Save as new file command button
 

"EnGo" wrote in message
...
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"),

Save as new file command button
 

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

"N10" wrote:


"EnGo" wrote in message
...
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"),