Hi, struggling out here in Nigeria without much help...trying to copy a range of cells from one worksheet (protected) to a new sheet in another workbook. Wrote it in Excel 2003 and then discovered the client machines are 2002 and I now get an error when I try to copy:
Set NewBook = Workbooks.Add
With NewBook
.SaveAs Filename:=FileNme
End With
'Now copy the required data to blanks sheet in new workbook
BkNme = Workbooks(Workbooks.Count).Name
Workbooks(OpenedLogFile).Worksheets("Ops").Range("B9:O400").Copy Destination:=Workbooks(BkNme).Sheets(1).Range("A1")
ActiveWorkbook.Close SaveChanges:=False
OpenedLogFile is a string populated from the filename of the workbook I'm copying from
Hope someone can point me in the right direction please
Max
Set NewBook = Workbooks.Add
With NewBook
.SaveAs Filename:=FileNme
End With
'Now copy the required data to blanks sheet in new workbook
BkNme = Workbooks(Workbooks.Count).Name
Workbooks(OpenedLogFile).Worksheets("Ops").Range("B9:O400").Copy Destination:=Workbooks(BkNme).Sheets(1).Range("A1")
ActiveWorkbook.Close SaveChanges:=False
OpenedLogFile is a string populated from the filename of the workbook I'm copying from
Hope someone can point me in the right direction please
Max