come risolvere Error Run Time 91

Salve avrei un problema con un codice che mi segnala errore di run >Time 91:
Nel file che allego ho un codice che mi consente di copiare automaticamente un commento da una cella ad un altra, però se per errore seleziono due o più celle mi segnala un errore di run time'91'
(Variabile oggetto o variabile del blocco With non impostata)e mi blocca la funzione.E' possibile evitare questo inconveniente ???
Grazie per eventuali suggerimenti

Aggiungi questa riga in testa all'interno della tua macro, è anche auto esplicativa:

If Target.Cells.Count > 1 Then Exit Sub

Ti ringrazio infinitamente rollis31 ... è esattamente quello che cercavo👍👌

Grazie del riscontro positivo 👍.