craig schultz
New Member
- Joined
- Dec 4, 2014
- Messages
- 47
Hi, I wonder if anyone could help me.
I am trying to copy columns A-F into a new workbook and save new workbook in the current folder.
I currently have the code below which does what I want except it copies the whole sheet, not just my specified columns
Sub Customer Copy()
' Copy activesheet to the new workbook
ActiveSheet.Copy
'Save new workbook as MyWb.xls(m) into the folder where ThisWorkbook is stored
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\CustomerCopy", xlWorkbookNormal
MsgBox "It is saved as " & ActiveWorkbook.FullName & vbLf & "Press OK to close it"
' Close the saved copy
ActiveWorkbook.Close False
End Sub
I would be very grateful for any help,
Many thanks
Craig
I am trying to copy columns A-F into a new workbook and save new workbook in the current folder.
I currently have the code below which does what I want except it copies the whole sheet, not just my specified columns
Sub Customer Copy()
' Copy activesheet to the new workbook
ActiveSheet.Copy
'Save new workbook as MyWb.xls(m) into the folder where ThisWorkbook is stored
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\CustomerCopy", xlWorkbookNormal
MsgBox "It is saved as " & ActiveWorkbook.FullName & vbLf & "Press OK to close it"
' Close the saved copy
ActiveWorkbook.Close False
End Sub
I would be very grateful for any help,
Many thanks
Craig