Why R/T error 1004 - 7 rows from the end of this code

  • Thread starter Thread starter JMay
  • Start date Start date
J

JMay

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").PasteSpecial
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
 
The sheet must first be activated.

With Worksheets('WorkingReport")
.Activate
.Range("A1").Select
End With

It is better to use a coding style that eliminates Activate and Select as
much as possible, which is almost completely.
 
Another way:

application.goto Worksheets("WorkingReport").Range("A1"), scroll:=true '???
 
Thanks JLGWhiz,

Rule#1 (somehow missed):
If you use the SELECT method you must be ALREADY BE INSIDE the sheet
of the Range you wish to SELECT.

Is there a list of the other 6 DEADLIEST Sins (Rules) that I can MEMORIZE?

Thanks,

Jim
 
Back
Top