add cell value ti the end of html

[whatasks22]

Hey guy i am trying to add the value in A2, to the end of the URL
here is the code

Sub Assetgrabber()
Dim myValue As Variant
myValue = InputBox("Asset Tag")
Range("A2").Value = myValue






Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate = ("http://spv-msccm-rs02/ReportServer/Pages/ReportViewer.aspx?%2fCustom%2f_Generic%2fDeviceFullReport&rs:Command=Render&CompName=" & A2)
ie.Visible = True
End Sub

 

[John_w]

ie.Navigate "http://spv-msccm-rs02/ReportServer/Pages/ReportViewer.aspx?%2fCustom%2f_Generic%2fDeviceFullReport&rs:Command=Render&CompName="  & Range("A2").Value

 

[whatasks22]

Thank you so much, i am new with vba and stumbling my way through it