How can I save a single Sheet with range not the workbook?

[HomeyDaClown]

I've been playing around for some time and just can not figure out how to save a single sheet with a range of A1:I6 to a file. Is it even possable?

Here is what I've used so far. It works great if I needed the entire woorkbook. I'm a real newbie so I don't know what to look for.

Public Sub SaveAsA1()
Dim Location, ThisFile As String, ThisSheet As String

ThisFile = Sheets("Save").Range("A1:I6").Select
If ThisFile = "" Then Exit Sub
ThisFile = Location + ThisSheet
ActiveSheet.SaveAs Filename:="C:\Excel\A1\A1-" & Format(Time, "hh-mm") & " " & Format(Date, "dd-mm-yyyy")

End Sub

 

[Don Guillett]

See if this works

Sub saverange_new()
Sheets("Sheet3").Range("a2:d12").Copy
Workbooks.Add
ActiveSheet.Paste
End Sub

--
Don Guillett
SalesAid Software
(e-mail address removed)

I've been playing around for some time and just can not figure out how to

save a single sheet with a range of A1:I6 to a file. Is it even possable?

Here is what I've used so far. It works great if I needed the entire

woorkbook. I'm a real newbie so I don't know what to look for.

 

[HomeyDaClown]

Sub saverange_new()

Sheets("Sheet3").Range("a2:d12").Copy
Workbooks.Add
ActiveSheet.Paste
End Sub

Thanks Don, How can I add a name and path to be saved to
it?
Thanks again,
Homey

 

[xlbo]

If that is all there is on the sheet then:
Sheets("Save").copy
Activeworkbook.saveas "Full Path & Name Go Here"

or if you need todo the copy / paste then

set newBk = workbooks.add
thisworkbook.sheets("Save").range("A1:I6").copy destination:=newBk.sheets(1).range("A1")
newBk.saveas "Full Name & Path Go Here")