Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("F:F")) Is Nothing Then Target = "Rinnovo" End If End Sub
rollis13, 06/01/2022 22:51:Un saluto a tutti. Ma non basterebbe trascinare con il mouse ? Oppure metti questo nel modulo del foglio:Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("F:F")) Is Nothing Then Target = "Rinnovo" End If End Sub