Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("C46:C107")) Is Nothing Then: Exit Sub
If ActiveCell = "" Then
ActiveCell = "X"
ActiveCell.Font.Bold = True
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Else
ActiveCell = ""
End If
End Sub