Buongiorno,
ho risolto il problema in questa maniera:
Set zonaoriz1 = ActiveSheet.Range([D3], [D3].End(xlToRight)) 'impostiamo l'intervallo orizzontale
conta = 0 'Conto il numero di persone in RI
riga = "3"
uColonna = 135 'Lunghezza della colonna
For Each CR In zonaoriz1 'e per ogni cella nella zona orizzontale
If CR = TextBox3.Text Then 'cerchiamo la cella (CR) che avra' la data uguale alla data scritta in TextBox20
C = CR.Column 'trovata la cella, con C prendiamo il numero di colonna, che ci serve per definire 'il numero di colonna usato dal riferimento Cells usato per
ActiveSheet.Cells(riga, C).Select 'mi posiziono nella cella
cont = 0
For x = 12 To uColonna
Tipo = Sheets("Turno").Cells(x, C).Value
If Tipo = "RC" Or Tipo = ".RC" Then
conta = conta + 1
Cognome = Range("B" & x)
Nome = Range("c" & x)
With Me.ListBox4
.ColumnCount = 3
.AddItem
.List(cont, 0) = Cognome
.List(cont, 1) = Nome
.List(cont, 2) = Tipo
'sotto: incrementiamo di uno la variabile "cont" in modo che al ciclo successivo "cont" indichi la riga 'successiva nell'istruzione List
cont = cont + 1
End With
End If
Next
Exit For
End If
Next
Set sh = Nothing
Ti ringrazio Marius44