title: VBA Check For Missing Data for Dymanic Range
body: <p>I am stuck on figuring out how to make a dynamic range for this database page for a project to check if the Phase data is missing before saving the workbook.  The database page will continue to grow and not sure how to make this range dynamic.  </p>
  
  <pre><code>Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Dim rsave As Range
  Dim cell As Range
  
  Sheets("Database").Select
  
  Set rsave = Range("a7:a125")
  
  For Each cell In rsave
  If cell = "" Then
      Dim missdata
      missdata = MsgBox("Missing Phase Data", vbOKOnly, "Missing Phase Data")
      Cancel = True
      cell.Select
      Exit For
  End If
  Next cell
  End Sub
  </code></pre>