Private Sub Worksheet_Change(ByVal Target As Range)
        For Each cell In Target
         If Not Intersect(cell, Range("C2:C500")) Is Nothing Then
            Dim s As String, sHyp As String
            s = cell.Value
                 If Len(s) Then
                    Select Case Left(s, 3)
                    Case "590", "100", "204"
                        sHyp = "https://link0=" & s & "&yt0="
                    Case "011", "180"
                        sHyp = "http://link1/ttn/?ttn=" & s
                    End Select
                    
                      cell.Parent.Hyperlinks.Add Anchor:=cell, Address:=sHyp, TextToDisplay:=sHyp
                    Else
                      cell.Hyperlinks.Delete
                 End If
          End If
    Next cell
End Sub