Private Sub Workbook_Open()
ans = MsgBox("Would you like to CLEAR the WorkingReport Sheet at this
time?", vbYesNo)
If ans = vbNo Then
MsgBox "The WorkingReport has not been updated, be CAREFUL!!"
Exit Sub
Else
Worksheets("WorkingReport").Cells.ClearContents
Worksheets("WorkingReport").Range("Z1").Copy 'copies an
unformatted cell
Worksheets("WorkingReport").Range("A1:Q300").Paste Special
Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
With Worksheets("WorkingReport")
.Range("A1").Select ' WHY R/T 1004 Here????????????
End With
Application.CutCopyMode = False
Worksheets("Start Here").Activate
Range("C4").Select
End If
End Sub