Sub ThousandFormatting(ByVal Target As Range)

Dim FirstCell As String: FirstCell = Replace(Target.Cells(1, 1).AddressLocal, "$", "")
    
    With Target.FormatConditions
        .Delete
        .Add Type:=xlExpression, Formula1:="=AND(ISNUMBER(" & FirstCell & "), " & FirstCell & ">999)"
        With Target.FormatConditions(1)
            .Font.Bold = True
            .Font.Color = vbRed 
            .NumberFormat = "### ### ##0"
            .StopIfTrue = False
        End With
    End With
End Sub