VB Code to enter cell content within VB code

.
Using this code :

Option Explicit

Sub WebSite1()
Dim UReL As String
UReL = Range("C4").Value
ThisWorkbook.FollowHyperlink Address:=UReL, NewWindow:=True
End Sub

Sub WebSite2()
Dim UReL As String
UReL = Range("C5").Value
ThisWorkbook.FollowHyperlink Address:=UReL, NewWindow:=True
End Sub

Sub WebSite3()
Dim UReL As String
UReL = Range("C6").Value
ThisWorkbook.FollowHyperlink Address:=UReL, NewWindow:=True
End Sub

Hello Logit:

There is small misunderstanding.
Rather then having lots of individual code for each web site, i need to have one unique code where code needs to pick up the web address from cell C4,C5,C6 etc....

Sub WebSite1()
ThisWorkbook.FollowHyperlink Address:="http://www.google.com", NewWindow:=True
End Sub

In above address will be pick up from C4 when button at B4 is pressed
If i press Botton at B5 then adreess needs to picked up from cell C5 and so on.
I hope this is clear and let me know if any questions.

Riz

.
Not certain I understand what you seeking.

In the below code i need to make Address part to be variable.

URel is a variable.

You will always have to 'tell' Excel what the URL is. Either as you have it now with a hyperlink in the cell or a line of code in VBA.

Guess you could create a "IF THEN" scenario and reference the command buttons on the sheet.

Something like (NOTE THIS IS NOT THE ACTUAL SYNTAX) :

If CommandButton1 Then

     Address:="http://www.google.com", NewWindow:=True

ElseIf CommandButton2 Then

     Address:="http://www.Yahoo.com", NewWindow:=True

ElseIf CommandButton3 Then

     Address:="http://www.CNN.com", NewWindow:=True

End If

.
Place this code in the Sheet1 VBE :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim UReL1, UReL2, UReL3 As String
UReL1 = Range("C4").Value
UReL2 = Range("C5").Value
UReL3 = Range("C6").Value

    If Button1_Click = True Then
    
        ThisWorkbook.FollowHyperlink Address:=UReL1, NewWindow:=True
        
    ElseIf Button2_Click = True Then
        
        ThisWorkbook.FollowHyperlink Address:=UReL2, NewWindow:=True
        
    ElseIf Button3_Click = True Then
    
        ThisWorkbook.FollowHyperlink Address:=UReL2, NewWindow:=True

    End If
    
End Sub