Disculpa de nuevo mi intervención, no había abierto tu aplicación antes de responder, al verla no acabo de entender como o que es lo que buscas, no te seria mas practico (digo yo desde la ignorancia de para que o como tienes pensado usar la aplicación) un combobox desplegando la lista que tengas en "supongamos" la columna A de la hoja Visitas. creo que si no debes de conocer todos los registros, algo asi (adaptado del ejemplo de la anterior intervención)
Yo lo he probado y funciona, además he puesto la siguiente línea
TextBox1 = ComboBox1.Value
en el evento Private Sub CommandButton4_Click() pensando que con ello rellenabas el resto de textbox pero ya he visto que no es eso lo que pretendes.
Siento mucho el tostón que te he dado, pero espero que te sirva.
Albert