Maybe you're looking at the wrong worksheet?

ThisFile = activeworkbook.worksheets("Sheet1").Range("A1").Va lue

If that doesn't help, maybe you can post the exact error you get.



caldog wrote:

Always the word 'Current' and then a three digit number, with no slashes or
hyphens in it or spaces.

Example: 'Current112'

Steve

"Dave Peterson" wrote:

What's the value in A1?

If you put the date in there, remember that you can't use slashes in
filenames--at least in Windows.

caldog wrote:

Public Sub SaveAsA1()

ThisFile = Range("A1").Value

ActiveWorkbook.SaveAs Filename:=ThisFile

End Sub

I have created a button that would save the worksheet as the value in cell A1.
I keep getting an error with the above code. Can someone point out where I
am going wrong , and suggest an alternative way of coding for this cmd.
Thanks,

Steve

--

Dave Peterson


--

Dave Peterson