I was trying something like this, but of course not right.
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
Dim oCell As Range
If Not Intersect(Target, Range("A5:A7")) Is Nothing Then
For Each oCell In Intersect(Target, Range("A5:A20"))
Application.ScreenUpdating = False
Sheets("Conclusion").Range("A5:A6").EntireRow.Hidden = _
(Application.CountA(Sheets("Conclusion").Range("A7")) = "Blank")
'Sheets("Conclusion").Range("A7").EntireRow.AutoFit
Application.ScreenUpdating = True
Next oCell
End If
End Sub