Varias variables en un cuadro de post

Estoy buscando presentar múltiples variables en un cuadro de post: ID, Nombre del cliente, Fecha de adición, Lugar y Estado. Por el momento, solo puedo get la ID para mostrar, las otras variables presentan un Runtime 13 Error. Mi código está abajo.

Sub LookupTicket() Dim ibox, tid As Range Dim dad, sta, ven, cna As Variant Set Sheet = Worksheets("ControlSheet") dad = Range("DateAdded_CS").Value sta = Range("Status_CS").Value ven = Range("Venue_CS").Value cna = Range("CustName_CS").Value ibox = InputBox("Enter Ticket ID:", "Redeem Ticket") If ibox <> "" Then Set tid = Sheet.Range("A:A").Find(ibox) If tid Is Nothing Then MsgBox "Ticket ID not found!", vbCritical, "Redeem Ticket" Else 'MsgBox "Ticket details for ID: " & tid & vbNewLine & "Date Added: " & dad & vbNewLine & "Customer Name: " & cna & vbNewLine & "Venue: " & ven & vbNewLine & "Status: " & sta, vbInformation, "Lookup Ticket Details" MsgBox "ID: " & sta, "Lookup Ticket" End If End If 

Gracias chicos por cualquier aporte.

La variable tid es un Rango. Debe cambiar eso a tid.Value si va a tener una sola celda.

edit: compruebe si tid.count = 1 Obtengo un error de tipo (13) al intentar valorar un grupo de celdas en un range. Su Range.Find(ibox) puede devolver más de un valor.