Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
Target.Font.Name = "marlett"
If Target.Value = "" Then
Target.Value = "a"
Else:
Target.Value = ""
End If
Cancel = True
End Sub
Plus how do you change the code in a particular cell?
read the code ! it's almost plain englishIS there a way I can change the code so it checks in a different column, or multiple columns?
If Target.Column <> 1 Then Exit Sub
If Target.Column <> 2 And Target.Column <> 4 Then Exit Sub