Hi uTab,
Slightly different approach from Patrick, with specific worksheet name and destination range:
Sub WBcopy()
Dim wb As Workbook
Dim rg As Range
Set rg = Worksheets("Sheet11").Rang
Set wb = Application.Workbooks.Add 'Create a new workbook with default number of worksheets
rg.Copy Range(rg.Address) 'Copy to new workbook in same location on first worksheet
End Sub
Cheers!
Brad
Main Topics
Browse All Topics





by: matthewspatrickPosted on 2005-01-17 at 17:35:14ID: 13068850
Hi uTab,
py
Try this snippet:
Sheet11.Range("C6:K67").Co
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Regards,
Patrick