Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Activecell = 1 Then
With Selection.Font
.Name = "Annual"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveCell.EntireRow.Hidden = True
End If
End Sub