Experts Exchange connects you with the people and services you need so you can get back to work.
Private Sub CommandButton1_Click()
Dim aCell As Range
Dim strURL As String, MyArray() As String
strURL = "http://server/page.aspx?iid=4"
MyArray = Split(strURL, "=")
strSearch = Trim(MyArray(1))
Set aCell = Sheets("Sheet1").Columns(1).Find(What:=strSearch, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
If Not aCell Is Nothing Then
Sheets("Sheet1").Hyperlinks.Add Anchor:=aCell, Address:=strURL
MsgBox "Not Found"
Open in new window
Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
Join the community of 500,000 technology professionals and ask your questions.
Join & Ask a Question
Join our community for more solutions or to ask questions.
For immediate help use Live now!