Here is part of the working macro. It works fine when the worksheets are not
hidden.
When it runs and opens the workbook with hidden worksheets. The problem
happens at
Sub File Copy()
Sheets("lookup") and ("Staff_Report") are hidden
Can a code be inserted to unlock the workbook,display the worksheet, run the
macro, hide the worksheet, then relock the workbook?
Sub FileCopy()
Sheets("Lookup").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("Staff_report").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("A50").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("A100").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("A150").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("AM").Select
Range("G4").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows("2006 master schedule.xls").Activate
Application.CutCopyMode = False
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
' Call CopyLOCCodes
End Sub
Bookmarks