ciao
penso basti cambiare
Select Case ComboBox4
Case "Prenotata": Tip = "P"
Case "Confermata": Tip = "C"
Case "Annullata": Tip = "A"
End Select
con
Select Case ComboBox4
Case "Prenotata": Tip = ComboBox1.Value
Case "Confermata": Tip = "C"
Case "Annullata": Tip = "A"
End Select
ma hai già il nome come ci passi sopra
e poi le celle sai che grandi diventano