Error 400 (1004 in Debug)

[dunemight]

Hi there,

So happy I found this forum of experts. Hopefully someone can help diagnose this error.

Sub TransactionIndex()
    
    Dim Index As Long
    Dim Current As Range
    Dim Row As Range
    
    Index = 1
    Set Current = Worksheets("Test").Range("D2")
    
    Set Row = Worksheets("Test").Range(Current.Address, "D" & Last_Row()).Find("TRUE", LookIn:=xlValues, After:=Range(Current.Address))
    
    If Not Row Is Nothing Then
        Worksheets("Test").Range("C" & Row.Row).Value = Index
        Index = Index + 1
    End If
    
    Do While Not Row Is Nothing
        Set Row = Worksheets("Test").Range(Current, "D" & Last_Row()).Find("FALSE", After:=Range(Row))
        Set Current = Row
    
        Set Row = Worksheets("Test").Range(Current, "D" & Last_Row()).Find("TRUE", After:=Range(Current.Address))
        Worksheets("Test").Range("C" & Row.Row).Value = Index
        Index = Index + 1
    Loop
    
End Sub

Thanks!

 

[dunemight]

Oh I forgot this.

Function Last_Row() As Long
    Dim sht As Worksheet
    
    Set sht = Worksheets("Sample Data")
    
    Last_Row = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row


End Function

The value returned is 39278.

The error seems to stem from

Set Row = Worksheets("Test").Range(Current, "D" & Last_Row()).Find("FALSE", After:=Range(Row))