vba to navigate a webpage mentioned in worksheet cell.

[NonStopLeo]

Hi Friends
I have created a macro. If I run this macro I visit a URL which is mentioned in my vba code.
I want to change this url every time. so is there a way that I enter the URL in excel cell A2 (Sheet1) and vba pick the url from this cell instead of mentioning the url in vba.

Please help me change the code, currently I have below code.

<code><code>
Source = Web.Page(Web.Contents(""https://www.google.com""))
</code></code>

Thanks a lot for your usual help.

 

[My Aswer Is This]

You can try this:

Just enter google into Range("A2")
Or enter CNN or People or MrExcel

This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  12/2/2018  5:54:33 PM  EST
If Not Intersect(Target, Range("A2")) Is Nothing Then
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
Dim ans As String
ans = Target.Value
Link = "http://www." & ans & ".com//"
    On Error GoTo NoCanDo
   ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
 
    Exit Sub
NoCanDo:
 MsgBox "Cannot open " & Link
End If
End Sub