Type mismatch error in Excel vba

[Al3xandra_]

I keep getting a type mismatch error. Please help.
The asterisks indicate where the error is occuring. Below is he code that I am using

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = Range("Item_ID").Row And _
Target.Column = Range("Item_ID").Column Then
Dim ie As New InternetExplorer

'Set IE.Visible
ie.Visible = True

***ie.navigate "ShipTrack - Login" & Range("Item_ID").Value***

Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
Dim Doc As HTMLDocument
Set Doc = ie.document
Dim odd As String
odd = Trim(Doc.getElementsByClassName("odd")(1).innerText)
ie.Quit
Dim aodd As Variant
aodd = Split(sodd, ",")
Range("Tracking_Number").Value = aodd(3)
Range("Item_ID").Value = aodd(0)
Range("pick_up_date").Value = aodd(2)
Range("Delivery_Status_Date").Value = aodd(3)
Range("Time").Value = aodd(4)
Range("Delivery_Driver_Name").Value = aodd(5)
Range("Status").Value = aodd(6)
Range("Stats_des").Value = aodd(7)
Range("Comments").Value = aodd(8)
Range("Signed_By").Value = aodd(9)
Range("Del_Add").Value = aodd(10)
Range("History").Value = aodd(11)
Range("Transaction_ID").Value = aodd(12)
Range("ScanCode_dt").Value = aodd(13)
Range("Company_Name").Value = aodd(14)
Range("Def_loc_id").Value = aodd(15)
Range("Dri_cmmts").Value = aodd(16)
Range("creation_dt").Value = aodd(17)
Range("scan_type").Value = aodd(18)
End If
End Sub

 

[NdNoviceHlp]

Hi Al3xandra and Welcome to the Board! The navigate variable must be a string. Also, make sure the whole address is correct. HTH. Dave

Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
With ie
       .Visible = True
       .navigate "ShipTrack - Login" & CSTR(Range("Item_ID").Value)
'etc.

ps. Please use code tags