I need some help with this script.

[VBA]
Dim rp As String
Range("K5").Value = rp
Workbooks.Open Filename:= _
"C:\Asset Tracking.xlsx"
If rp = "8510p" Then Sheets("8510p").Select
If rp = "NC8430" Then Sheets("NC8430").Select

End Sub
[/VBA]
This is a part of what I am trying to do.