Greetings,
I am receiving the error "Object doesn't support this property or method" on the line below
This line exists within the code below
I suspect it has to do with the fact that the For Each loop exists within the PA.ws object. Perhaps?
I am receiving the error "Object doesn't support this property or method" on the line below
Code:
TA.ws.Range("A1").Select
This line exists within the code below
Code:
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?