Hi

See it this gets you going

Private Sub Annual_Click()
  Dim FindIT As Range, DayRng As Range, Scnt As Long
    With Selection.Interior
        .ColorIndex = 32
        .Pattern = xlSolid
    End With
    Set FindIT = Sheets("Main").Range("A:A").Find(what:=Cells(Selection.Row, 1).Value, lookat:=xlWhole)
  Set DayRng = Cells(3, Selection.Column).Resize(1, Selection.Columns.Count)
  Scnt = WorksheetFunction.CountIf(DayRng, "S")
  FindIT.Offset(0, 2).Value = FindIT.Offset(0, 2).Value + Selection.Columns.Count - Scnt
End Sub

rylo