compare 2 different numbers and copy the last 3 digits.

Originally Posted by jindon

I would write like this

Sub test()
    With Cells(1).CurrentRegion
        With .Columns(3)
            .Formula = "=min(a1:b1)&""-""&right(max(a1:b1),3)"
            .Value = .Value
        End With
    End With
End Sub

TextBox?...

Great it works fine

about the TextBox: well actually what I want is to enter 2 numbers from a userform, and if the first digits much together than it it will be saved on a the sheet on the way like