title: Need checkbox to hide and unhide empty rows
body: <p>I have the following and I'm trying to just hide the lines that are empty and bring them back with a CHECKBOX so that I can add lines back when needed. I not want to delete them.</p>
  
  <pre><code>Sub Sample()
      Dim i As Long
      Dim DelRange As Range
  
      On Error GoTo Whoa
  
      Application.ScreenUpdating = False
  
      For i = 1 To 250
          If Application.WorksheetFunction.CountA(Range("A" &amp; i &amp; ":" &amp; "L" &amp; i)) = 0 Then
              If DelRange Is Nothing Then
                  Set DelRange = Rows(i)
              Else
                  Set DelRange = Union(DelRange, Rows(i))
              End If
          End If
      Next i
  
      If Not DelRange Is Nothing Then DelRange.Delete shift:=xlUp
  LetsContinue:
      Application.ScreenUpdating = True
  
      Exit Sub
  Whoa:
      MsgBox Err.Description
      Resume LetsContinue
  End Sub
  </code></pre>