Updating hyperlinks through a userform

[Watchdawg]

I have a userform with a command button which finds a specific cell/hyperlink which it displays in a textbox.
I want to then edit the information in the textbox (when needed) and replace the old hyperlink with the new one (or cancel if there are no changes).
Here is the code that I use to populate the text:

Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Worksheets("Functional Contacts").Range("A3:A100")
If c.Value = ComboBox1.Value Then
c.Select
TextBox1.Value = Selection.Hyperlinks(1).Address
End If
Next
End Sub

I need a command button that will then replace the hyperlink in the selected cell.

Thanks!!

 

[Watchdawg]

I have a userform with a command button which finds a specific cell/hyperlink which it displays in a textbox.
I want to then edit the information in the textbox (when needed) and replace the old hyperlink with the new one (or cancel if there are no changes).
Here is the code that I use to populate the text:

Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Worksheets("Functional Contacts").Range("A3:A100")
If c.Value = ComboBox1.Value Then
c.Select
TextBox1.Value = Selection.Hyperlinks(1).Address
End If
Next
End Sub

I need a command button that will then replace the hyperlink in the selected cell.

Thanks!!

I guess I should have continued searching first...I found the solution, though I don't know if it's the best solution, it does work:

Private Sub CommandButton2_Click()
Dim c As Range
For Each c In Worksheets("Functional Contacts").Range("A3:A100")
If c.Value = ComboBox1.Value Then
c.Select
ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:=TextBox1.Value, TextToDisplay:=ComboBox1.Value

End If
Next
End Sub