Thread: 1004 Error w/ "Range"

I am receiving an error with the DeBugger highlighting the last line of code below.

I attempted Sheets("APR_ALL_STATES").Range("aprAllStatesA") &
Worksheets("APR_ALL_STATES").Range("aprAllStatesA").Select to no avail.

Thanks in advance.



Dim bHold, fHold, yHold, zHold, aprAllStatesA, aprAllStatesT As Range
Dim oBook As Workbook

'''''GEOLOC
Set aprAllStatesA = Range("A3")
Set aprAllStatesT = Range("T3")

For i = 1 To 5000

''''''''B-F
Sheets("APR_ALL_STATES").Select
Range("aprAllStatesA").Select