Hi all,

I have a short code attached to a command button on a Userform ("Userform1") that locates a specific row of information based on a cell value (Sheet1, column B), copies this info to another page ("Info"), then this Row of information is used to populate back into my Userform, the problem I'm having is one piece of information is a Hyperlink, this link address is lost as soon as it copies the row to Sheet "Info". Is there a way to adapt the code below to retain the Hyperlink address when it is transfered to Sheet "Info" & then enter an "active" hyperlink back into the Userform? Ideally the user would be able to click in TextBox 4 on the Userform & be sent to the coresponding link address? - As always thanks for any assistance guys - Marco

Private Sub CommandButton2_Click()
Dim FoundCell As Range
Dim searchstring As String
Application.ScreenUpdating = False

searchstring = Application.InputBox("Enter Serial Number", "Search", , 100, 100, , , 2)
If Not Len(Trim(searchstring)) > 0 Then Exit Sub
Set FoundCell = Sheet1.Range("B:B").Find(What:=searchstring, LookIn:=xlValues)
If Not FoundCell Is Nothing Then
RowNr = FoundCell.Row
With Sheets("Info")
.Unprotect "000"
.Range("A1:D1").Value = Sheet1.Range("A" & FoundCell.Row, "D" & FoundCell.Row).Value
Userform1.TextBox1.Value = Sheets("Info").Range("A1").Value
Userform1.TextBox2.Value = Sheets("Info").Range("B1").Value
Userform1.TextBox3.Value = Sheets("Info").Range("C1").Value

'this cell contains a hyperlink that I need to be activated from the Userform "TextBox4"...This possible?
Userform1.TextBox4.Value = Sheets("Info").Range("D1").Value

Exit Sub
End With
MsgBox "Action Processed"
Register.Show
End If
Set FoundCell = Nothing
MsgBox "Reference Not Found?"
End Sub