Status Bar as progress bar

Im forgetting how to code something for this.

    For lRow = Range("A1").End(xlDown).Row To 2 Step -1
Application.StatusBar = Range(lRow).Cells & " of " & lRow & " complete."
        If Left(Cells(lRow, "A").Value, 9) <> "     $$ #" Then
            Rows(lRow).EntireRow.Delete xlUp
        Else
            Rows(lRow).Select    'visual aid
            'Selection.Font.ColorIndex = 3 'for testing
        End If
        
    Next lRow

Im trying to show what row of the total rows are in process in the status bar.

Any help, tips, hints, etc is appreciated.