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

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

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

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.

"JMay" wrote:

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

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

Another way:

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


JMay wrote:

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

--

Dave Peterson

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

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

"JLGWhiz" wrote:

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.

"JMay" wrote:

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