Right click on the sheet Tab>View code
You can copy and paste from that.
or
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
With Target
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
If Target.Value = "þ" Then
With Target.Font
.Name = "Wingdings"
.Size = 14
End With
Target.Value = "o"
Else
With Target.Font
.Name = "Wingdings"
.Size = 14
End With
Target.Value = "þ"
End If
Target.Offset(0, 1).Select
End Sub
Bookmarks