Solved: Forms with hyperlinks

[khalid79m]

I am currently working on making a form to pull back data in excel

I have a list of data , which can be anything from 100 rows to 40000 rows depending on the site I am working on , I need this form to allow the user to input the agent_ID and the click run, this will then populate the form with the first 5 calls for that agent.

the form must show in the following order

Unquie ID
Agent ID
Date
Time
Audit
Call Lenght
Call Link (hyperlink)

i have attached dummy data

[khalid79m]

Private Sub Cmd_AgentPin_Search_Click()
 
    If Sheets("Call_List").AutoFilterMode = True Then Sheets("Call_List").AutoFilterMode = False
    Names.Add Name:="Filter_Area", RefersToR1C1:="=Call_List!R1C1:R65536C10"
    
    With Range("Filter_Area").Resize(, 10)
        .AutoFilter Field:=4, Criteria1:=Me.txt_AgentPin.Value
    End With
    
    Sheets("Data").Cells.ClearContents
    
    Sheets("Call_List").Range("A1").CurrentRegion.Copy
    Sheets("Data").Select
    Range("a1").Select
    ActiveSheet.Paste
    
    Me.txt_Call1_Link.Value = ThisWorkbook.Sheets("Data").Range("I2").Value
    Me.txt_Call2_Link.Value = ThisWorkbook.Sheets("Data").Range("I3").Value
End Sub
Private Sub Cmd_Call1_Play_Click()
Link = Me.txt_Call1_Link.Value
'On Error GoTo NoCanDo
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
Unload Me
'Exit Sub
'NoCanDo:
'MsgBox "Cannot open " & Link
End Sub
Private Sub Cmd_Call2_Play_Click()
Link = Me.txt_Call2_Link.Value
'On Error GoTo NoCanDo
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
Unload Me
'Exit Sub
'NoCanDo:
'MsgBox "Cannot open " & Link

End Sub

this code works fine until Private Sub Cmd_Call1_Play_Click or Private Sub Cmd_Call2_Play_Click. When I click the play button, it closes the user form and opens the link, i need the user form to always stay visible.

Can anyone help

[tpoynton]

Unload Me closes the userform

[khalid79m]

thanks