sooty8
01-23-2009, 12:31 PM
Hi
Can you help me solve the best way to save a sheet to a new folder on the Desktop ( Folder Name - Say "Invoices 2009" ) using the code below I copy the master sheet each time I send out an Invoice the copy sheet has a different name each time based on the Invoice number. After moving the copy sheet then deleting it from the original work book.
Private Sub Add3_Click()
Application.ScreenUpdating = False
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Invoice")
Range("A1:J56").Select
Sheets("Invoice").Copy After:=Sheets(2)
ActiveSheet.Name = Range("C14").Value
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Columns("L:O").Select
Selection.EntireColumn.Hidden = True
Sheets("Invoice").Select
Range("B7").Select
Application.ScreenUpdating = True
End Sub
Many Thanks
Sooty8
Can you help me solve the best way to save a sheet to a new folder on the Desktop ( Folder Name - Say "Invoices 2009" ) using the code below I copy the master sheet each time I send out an Invoice the copy sheet has a different name each time based on the Invoice number. After moving the copy sheet then deleting it from the original work book.
Private Sub Add3_Click()
Application.ScreenUpdating = False
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Invoice")
Range("A1:J56").Select
Sheets("Invoice").Copy After:=Sheets(2)
ActiveSheet.Name = Range("C14").Value
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Columns("L:O").Select
Selection.EntireColumn.Hidden = True
Sheets("Invoice").Select
Range("B7").Select
Application.ScreenUpdating = True
End Sub
Many Thanks
Sooty8