Private Sub Worksheet_Sheet4(ByVal Target As Range)
If Not Intersect(taret, Range("F3")) Is Nothing Then
If Range("F3").Value = "Secondary fit-out" Then
    Rows(8).EntireRow.Hidden = True
ElseIf Range("F3").Value = "Major refurbishement" Then
    Rows(8).EntireRow.Hidden = False
End Select
End If
End Sub