title: If there is a value in an entire column (minus header), alert user wrong file
body: <p>I have a macro taking two spreadsheets and performing a look up.  I need to be able to take the value selected by the user from a combobox (ComboBox1.value), and assign a column reference to then check to see if the column is empty, before proceeding.  This is to prevent the user from selecting a month column within a spreadsheet, and providing an update for a month that has already been updated. I will then alert them, and they can choose how to proceed.</p>
  
  <p>The combobox contains a list of all 12 months.  I need to set a value to be the column reference for their selection, and if that column is blank (starting from A2 to last entry in column, or if there is any value in any cell starting at row 2 to end.. whichever makes the most sense), alert them.</p>
  
  <p>This sheet has over 20K rows. I can't pick just one to reference, as it is plausible it could have blanks, thus why I am checking for a value in entire column.</p>
  
  <p>I for the love of Pete, in all my newbie glory, after searching to the interwebz, cannot make this happen... </p>
  
  <p>Code below is not giving an error, but it also not working properly. I have a test sheet with values in it for April, and it doesn't alert, it goes to next action.</p>
  
  <p>My block of code where I am trying to do this looks like ...</p>
  
  <pre><code>Dim UpdateMonthColumn As String
  
  If ABCMatrixMonthSelect.ComboBox1.value = "January" Then
  UpdateMonthColumn = "U"
  ElseIf ABCMatrixMonthSelect.ComboBox1.value = "February" Then
  UpdateMonthColumn = "W"
  ElseIf ABCMatrixMonthSelect.ComboBox1.value = "March" Then
  UpdateMonthColumn = "Y"
  ElseIf ABCMatrixMonthSelect.ComboBox1.value = "April" Then
  UpdateMonthColumn = "C"
  ElseIf ABCMatrixMonthSelect.ComboBox1.value = "May" Then
  UpdateMonthColumn = "E"
  ElseIf ABCMatrixMonthSelect.ComboBox1.value = "June" Then
  UpdateMonthColumn = "G"
  ElseIf ABCMatrixMonthSelect.ComboBox1.value = "July" Then
  UpdateMonthColumn = "I"
  ElseIf ABCMatrixMonthSelect.ComboBox1.value = "August" Then
  UpdateMonthColumn = "K"
  ElseIf ABCMatrixMonthSelect.ComboBox1.value = "September" Then
  UpdateMonthColumn = "M"
  ElseIf ABCMatrixMonthSelect.ComboBox1.value = "October" Then
  UpdateMonthColumn = "O"
  ElseIf ABCMatrixMonthSelect.ComboBox1.value = "November" Then
  UpdateMonthColumn = "Q"
  ElseIf ABCMatrixMonthSelect.ComboBox1.value = "December" Then
  UpdateMonthColumn = "S"
  End If
  
  If WorksheetFunction.CountA(Columns(UpdateMonthColumn)) = 0 Then
  
  'If WorksheetFunction.CountA(Range("Sheet 1[UpdateMonthColumn]")) &lt;&gt; 0 Then
  Msgbox12 = Msgbox("The column you will place the ABC Count within for " &amp;   
  ABCMatrixMonthSelect.ComboBox1 &amp; "is not empty." &amp; vbCr &amp; " Do you still 
  wish to proceed with an update for " &amp; ABCMatrixMonthSelect.ComboBox1 &amp; "?" 
  &amp; vbCr &amp; "Select Yes to proceed and update with new values." &amp; vbCr 
  &amp; "Select No to return to drop down list and chose a different month." &amp; 
  vbCr &amp; "Select Cancel to return to ABC Matrix Main Menu.", vbQuestion Or 
  vbYesNoCancel, "ABC Matrix Macro")
  If Msgbox12 = vbYes Then GoTo SelectFile2:
  If Msgbox12 = vbNo Then ActiveWorkbook.Close
      GoTo SelectMonth:
  If Msgbox12 = vbCancel Then
      Msgbox "ABC Count update cancelled by user!" &amp; vbCr &amp; vbCr &amp; "Returning 
      to ABC Matrix Macro Main Menu.", vbCritical, "ABC Matrix Macro Alert!"
       With ABCMatrixMainMenu
       .StartUpPosition = 0
       .Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
       .Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)
       .Show
      Exit Sub
    End With
   End If
  Else
  </code></pre>