Solved: Range("A4").End(xlDown) Error

I am receiving an error using the following code. I've noticed, however, that the error only occurs if the worksheet, "Transactions," is not the active worksheet. Is there a way to make this line of code work properly regardless worksheet tab that is selected?

[VBA]
Worksheets("Transactions").Range("A4").End(xlDown).Select
[/VBA]

If transactions is not active, you cannot select a range in that sheet, you have to activate it first.

[vba]

With Worksheets("Transactions")

.Activate
.Range("A4").End(xlDown).Select
End With
[/vba]

Do you really need to select it? You can use the cell without selecting it first, regardless of which sheet is active

[VBA]

myVar = Worksheets("Transactions").Range("A4").End(xlDown).value

[/VBA]

Paul

Quote:

---

Originally Posted by xld

If transactions is not active, you cannot select a range in that sheet, you have to activate it first.

[vba]

With Worksheets("Transactions")

.Activate
.Range("A4").End(xlDown).Select
End With
[/vba]

---

Very good. Thanks, as always.

You can also use GoTo to select a range in the same or another open workbook.

[vba]
Application.Goto Worksheets("Transactions").Range("A4").End(xlDown)
'or
Application.Goto Workbooks("Test.xls").Worksheets("Transactions").Range("A4").End(xlDown)
'or
Application.Goto Workbooks("Test.xls").Worksheets("Transactions").Range("Data")



[/vba]

Quote:

---

Originally Posted by mdmackillop

You can also use GoTo to select a range in the same or another open workbook.

[vba]
Application.Goto Worksheets("Transactions").Range("A4").End(xlDown)
'or
Application.Goto Workbooks("Test.xls").Worksheets("Transactions").Range("A4").End(xlDown)

[/vba]

---

Thanks.