If Worksheets("Accomplishments").Range("J5").Value < 100 Then
Worksheets("Accomplishments").Rows("5:8").EntireRow.Hidden = True
Worksheets("Actionplan").Rows("6:7").EntireRow.Hidden = True
Worksheets("Oppurtunities").Rows("5:8").EntireRow.Hidden = False
Else
End If