Sub Convert_to_Hex()
Dim rng As Range, cel As Range
Dim i As Long, str As String, tmp As String

Application.ScreenUpdating = False

Set rng = Range("A2", Range("A" & Rows.Count).End(xlUp))
For Each cel In rng
    str = cel.Value
    
    For i = 1 To Len(str)
        Select Case Asc(Mid(str, i, 1))
            Case Is = 45    'hyphen
                tmp = tmp & "2d"
            Case Is = 48    'zero
                tmp = tmp & "30"
            Case Is = 49    'one
                tmp = tmp & "31"
            Case Is = 50    'two
                tmp = tmp & "32"
            Case Is = 51    'three
                tmp = tmp & "33"
            Case Is = 52    'four
                tmp = tmp & "34"
            Case Is = 53    'five
                tmp = tmp & "35"
            Case Is = 54    'six
                tmp = tmp & "36"
            Case Is = 55    'seven
                tmp = tmp & "37"
            Case Is = 56    'eight
                tmp = tmp & "38"
            Case Is = 57    'nine
                tmp = tmp & "39"
        End Select
    Next i
    
    cel.Offset(, 1).Value = tmp
    tmp = ""
Next cel

Application.ScreenUpdating = True

End Sub