Object Doesn't support this property or method runtime error

[SBF12345]

Greetings,

I am receiving the error "Object doesn't support this property or method" on the line below

TA.ws.Range("A1").Select

This line exists within the code below

For Each ws In PA.Worksheets
A = ws.Cells(Rows.Count, "A").End(xlUp).Row


    Do Until A = 2
    
        If Cells(A, "E").Value > Cells((A + 1), "E").Value And Cells((A + 2), "E").Value And Cells((A + 3), "E").Value And Cells((A + 4), "E").Value And Cells((A + 5), "E").Value And Cells((A + 6), "E").Value And Cells((A + 7), "E").Value And Cells((A + 8), "E").Value And Cells((A + 9), "E").Value And Cells((A + 10), "E").Value And Cells((A - 1), "E").Value And Cells((A - 2), "E").Value And Cells((A - 3), "E").Value And Cells((A - 4), "E").Value And Cells((A - 5), "E").Value And Cells((A - 6), "E").Value And Cells((A - 7), "E").Value And Cells((A - 8), "E").Value And Cells((A - 9), "E").Value And Cells((A - 10), "E").Value Then


        Set AA = ws.Cells(A, "E")
        Set DD = ws.Cells(A, "A")
        G = AA.Row
        H = ws.Cells(A, "A").Row
    
        TA.ws.Range("A1").Select
        Selection.End(xlDown).Offset(1, 0).Select
        Selection.Value = "ACTIVE"
    
        DD.Copy
        TA.ws.Range("A1").Select
        Selection.End(xlDown).Offset(0, 1).Select
        Selection.PasteSpecial Paste:=xlValues

I suspect it has to do with the fact that the For Each loop exists within the PA.ws object. Perhaps?

 

[mrhstn]

Might it be that you are looping through the worksheets in PA.worksheets so rather than referring to TA.ws you should just refer to ws.?

 

[The Gunslinger]

either that or TA should say PA