title: How to check if a column is empty?
body: <p>I'm attempting to check if each column is empty. I need it for more calculations.</p>
  <p>I need to do it for nine of the columns f through n and for each I need that value as a Boolean afterwards which is why I made it the way I did based on a tutorial.</p>
  <p>I'm trying to get a message that tells me if a column is empty.</p>
  <pre class="lang-vb prettyprint-override"><code>Sub emptysinder()
  Dim cell As Range
  Dim fIsEmpty As Boolean
  Dim gIsEmpty As Boolean
  Dim hIsEmpty As Boolean
  Dim iIsEmpty As Boolean
  Dim jIsEmpty As Boolean
  Dim kIsEmpty As Boolean
  Dim lIsEmpty As Boolean
  Dim mIsEmpty As Boolean
  Dim nIsEmpty As Boolean
  fIsEmpty = False
  gIsEmpty = False
  hIsEmpty = False
  iIsEmpty = False
  jIsEmpty = False
  kIsEmpty = False
  lIsEmpty = False
  mIsEmpty = False
  nIsEmpty = False
  For Each cell In Range(&quot;F1:F200&quot;)
      If IsEmpty(cell) = True Then
          fIsEmpty = True
          Exit For
      End If
  Next cell
  If fIsEmpty = True Then
      MsgBox &quot;All cells are empty in your range!&quot;
  Else
      MsgBox &quot;Cells!&quot;
  End If
  For Each cell In Range(&quot;G1:G200&quot;)
      If IsEmpty(cell) = True Then
          gIsEmpty = True
          Exit For
      End If
  Next cell
  If gIsEmpty = True Then
      MsgBox &quot;All cells are empty in your range!&quot;
  Else
      MsgBox &quot;Cells &quot;
  End If
  For Each cell In Range(&quot;H1:H200&quot;)
      If IsEmpty(cell) = True Then
          hIsEmpty = True
          Exit For
      End If
  Next cell
  If hIsEmpty = True Then
      MsgBox &quot;All cells are empty in your range!&quot;
  Else
      MsgBox &quot;Cells have values!&quot;
  End If
  For Each cell In Range(&quot;I1:I200&quot;)
      If IsEmpty(cell) = True Then
          iIsEmpty = True
          Exit For
      End If
  Next cell
  If iIsEmpty = True Then
      MsgBox &quot;All cells are empty in your range!&quot;
  Else
      MsgBox &quot;Cells have values!&quot;
  End If
  For Each cell In Range(&quot;J1:J200&quot;)
      If IsEmpty(cell) = True Then
          jIsEmpty = True
          Exit For
      End If
  Next cell
  If jIsEmpty = True Then
      MsgBox &quot;All cells are empty in your range!&quot;
  Else
      MsgBox &quot;Cells have values!&quot;
  End If
  For Each cell In Range(&quot;K1:K200&quot;)
      If IsEmpty(cell) = True Then
          kIsEmpty = True
          Exit For
      End If
  Next cell
  If kIsEmpty = True Then
      MsgBox &quot;All cells are empty in your range!&quot;
  Else
      MsgBox &quot;Cells have values!&quot;
  End If
  For Each cell In Range(&quot;L1:L200&quot;)
      If IsEmpty(cell) = True Then
          lIsEmpty = True
          Exit For
      End If
  Next cell
  If lIsEmpty = True Then
      MsgBox &quot;All cells are empty in your range!&quot;
  Else
      MsgBox &quot;Cells have values!&quot;
  End If
  For Each cell In Range(&quot;M1:M200&quot;)
      If IsEmpty(cell) = True Then
          mIsEmpty = True
          Exit For
      End If
  Next cell
  If mIsEmpty = True Then
      MsgBox &quot;All cells are empty in your range!&quot;
  Else
      MsgBox &quot;Cells have values!&quot;
  End If
  For Each cell In Range(&quot;N1:N200&quot;)
      If IsEmpty(cell) = True Then
          nIsEmpty = True
          Exit For
      End If
  Next cell
  If nIsEmpty = True Then
      MsgBox &quot;All cells are empty in your range!&quot;
  Else
      MsgBox &quot;Cells have values!&quot;
  End If
  End Sub
  </code></pre>