B
bob
how would i delete part of a worksheet. the following deletes a worksheet
and copies new data to A1 but i want to leave the first 5 rows protected &
just delete the remaining rows in the sheet then copy source data to C6.
'delete data sheet each time before copy
Application.DisplayAlerts = False 'trun off del warning
Windows("test.xls").Activate
' Sheets("data").Visible = True 'unhide so can copy to
Sheets("data").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True 'trun warning back on
Windows("Book1").Activate
' COPY to test workbook , Data sheet, place at beginning
ActiveWorkbook.ActiveSheet.Copy Before:=Workbooks("test.xls").Sheets(1)
' Rename first sheet
Workbooks("test.xls").Sheets(1).Name = "data"
thanks
and copies new data to A1 but i want to leave the first 5 rows protected &
just delete the remaining rows in the sheet then copy source data to C6.
'delete data sheet each time before copy
Application.DisplayAlerts = False 'trun off del warning
Windows("test.xls").Activate
' Sheets("data").Visible = True 'unhide so can copy to
Sheets("data").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True 'trun warning back on
Windows("Book1").Activate
' COPY to test workbook , Data sheet, place at beginning
ActiveWorkbook.ActiveSheet.Copy Before:=Workbooks("test.xls").Sheets(1)
' Rename first sheet
Workbooks("test.xls").Sheets(1).Name = "data"
thanks