Ah bè questo è un quesito diverso dal solito 🙂

Chiarisci cosa intendi con "se selezioni una determinata cella". Lo deve fare l'utente? lo fa la macro via codice spostando la cella attiva?

In ogni caso è possibile "concatenare" (rectius: annidare) più costrutti Select Case, proprio come fai con If.

Fai vedere uno spezzone di codice così chiariamo il problema.

Se puoi, definisci meglio il problema specifico altrimenti restiamo nella didattica e forse ti serve poco (perchè ogni problema può avere più soluzioni e invece di cercare la soluzione più adatta investiamo post a parlare di teoria).

Il massimo sarebbe avere un file di esempio su cui ragionare, anche per avere lo scenario d'uso sottomano.

Bene, allora direi che puoi tenere il conto di quante volte l'utente scrive "ciao" modificando una cella nascosta (o lontana nel foglio in modo che non sia visibile), facendo sì che funga da contatore. Al raggiungimento della condizione ci fai quello che vuoi.

Lo schema sarebbe una cosa simile:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    if target = "ciao" then range("contatore") = range("contatore") + 1
    if range("contatore") = 10 then msgbox "Ciao ": range("contatore") = 0
end sub

Non testato 🙂 anche perchè ancora non ho capito lo scopo.

Purtroppo adesso devo chiudere, ma tu continua a postare che poi quando posso leggo tutto.

ciao a tutti   

molto simile a quella di vecchio frac, questa la mia versione

Frank

allego file

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sh As Worksheet
Set sh = Sheets("Foglio1")

With sh
    Select Case Target.Address
    
        Case Is = "$B$2"
            Range("b2").Value = Range("b2").Value + 1
            
            '================================
            ' arriva fino a 3 click
            '================================
            If Range("b2").Value <= 2 Then
                MsgBox "ciao"
            Else
                MsgBox "ciao, hai cliccato    " & Range("b2").Value & "   volte sulla cella B2"
                Exit Sub
            End If
            
        
        Case Is = "$B$3"
            MsgBox "arrivederci"
        
        End Select

End With

Set sh = Nothing

End Sub