save as a cell VBA

[Leo Rod]

Good afternoon Group,

Would somebody please tell me the VBA to :

Copy the worksheet to a new book -by creating it-
then save it as the cell "B1"
on "C:\Files"

All assitance on this subject will greatly help me with my daily labors,

Thanks in advance and greetings

Leo Rod
MIA-FL USA

 

[Don Guillett]

I just recorded this. See cleaned up below

Sub Macro11()
'
' Macro11 Macro
' Macro recorded 8/28/2008 by Donald B. Guillett
'

'
Sheets("Sheet2").Select
Sheets("Sheet2").Copy
ActiveWorkbook.SaveAs Filename:="C:\files\mynewBook.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

sub copyshttonewwbandname()
activesheet.Copy
ActiveWorkbook.SaveAs Filename:="C:\files\" & range("b1") & ".xls"
end sub

 

[Leo Rod]

THANKS!!!!

I just recorded this. See cleaned up below

Sub Macro11()
'
' Macro11 Macro
' Macro recorded 8/28/2008 by Donald B. Guillett
'

'
Sheets("Sheet2").Select
Sheets("Sheet2").Copy
ActiveWorkbook.SaveAs Filename:="C:\files\mynewBook.xls", FileFormat:=
_
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

sub copyshttonewwbandname()
activesheet.Copy
ActiveWorkbook.SaveAs Filename:="C:\files\" & range("b1") & ".xls"
end sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)