Clear and Hide Empty Rows

[Joseph]

Looking for a macro to do the following.

In Sheet1 Change Event
Look in Range (a6:a50)
If value is ""
Clear existing data in Row, from Column B to P.
Then Hide entire row.

Thanks.

[HansV]

This code goes into the worksheet module:

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rng As Range
  If Not Intersect(Range("A6:A50"), Target) Is Nothing Then
    Application.EnableEvents = False
    For Each rng In Intersect(Range("A6:A50"), Target)
      If rng.Value = "" Then
        rng.Offset(0, 1).Resize(1, 15).ClearContents
        rng.EntireRow.Hidden = True
      End If
    Next rng
    Application.EnableEvents = True
  End If
End Sub

[Joseph]

Perfect!! Works mint, thanks Hans.