Hello everyone, I have another question for you.
I'm making a training ledger and I am using the following VBA to double click a cell to change the cell to a check mark.
I would like this VBA to work on every other column starting at "I"
I also need the same thing to work on every other column starting at "H" but fill in an "X" instead. (regular arial is fine)
"X" means required
"Check mark" means completed
Can anyone help me out?
Thanks,
Reegs
I'm making a training ledger and I am using the following VBA to double click a cell to change the cell to a check mark.
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("H9:ABC2000")) Is Nothing Then
Cancel = True 'Prevent going into Edit Mode
Target.Font.Name = "Wingdings"
If Target = vbNullString Then
Target = "ü"
Else
Target = vbNullString
End If
End If
End Sub
I would like this VBA to work on every other column starting at "I"
I also need the same thing to work on every other column starting at "H" but fill in an "X" instead. (regular arial is fine)
"X" means required
"Check mark" means completed
Can anyone help me out?
Thanks,
Reegs