Sub ReportResult(repeatBirthday As Boolean) If repeatBirthday Then Range("D2").Value = Range("D2").Value + 1 End If Range("E2").Value = Range("E2").Value + 1 End Sub