Problem: vba code for creating a button to save worksheet as Cell
 

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

Problem: vba code for creating a button to save worksheet as Cell
 

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

Problem: vba code for creating a button to save worksheet as C
 

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

Problem: vba code for creating a button to save worksheet as C
 

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

Problem: vba code for creating a button to save worksheet as Cell
 

Public Sub SaveAsA1()

Activeworkbook.SaveAs (Range("A1"))

End Sub

Problem: vba code for creating a button to save worksheet as C
 

This is the error message I get:

[ Run-time error '91': Object variable or With block variable not set ]



"Dave Peterson" wrote:

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

Problem: vba code for creating a button to save worksheet as C
 

What is the line that causes the error?



yasser wrote:

This is the error message I get:

[ Run-time error '91': Object variable or With block variable not set ]

"Dave Peterson" wrote:

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


--

Dave Peterson

Problem: vba code for creating a button to save worksheet as Cell
 

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
Your going to need something like :

Public Sub SaveAsA1()

ThisFile = Range("A1").Value

ActiveWorkbook.SaveAs
with .Filename:=ThisFile
end with
End Sub