Self taught and struggling!

Dim LastRow As Long, c As Range
Application.EnableEvents = False
LastRow = Cells(Cells.Rows.Count, "F").End(xlUp).Row
On Error Resume Next

' For Each c In Range("E8:E" & LastRow)
For Each c In Range("F10:F280")
If J8 = "A" Then
c.EntireRow.Hidden = False
ElseIf c.Value = True Then
c.EntireRow.Hidden = False
ElseIf c.Value = False Then
c.EntireRow.Hidden = True
End If
Next

Application.EnableEvents = True
End Sub

The "If J8 = "A" Then" doesn't seem to work and can't see why?