title: excel - count blank cells (Translating A to 1, D to 4.etc)
body: <p>I want to supply a number (ie. 4 which represents the 4th column - D) and then have a msgbox return the number of non blanks in that column</p>
  
  <p>For example below there are 5 blanks in column D:</p>
  
  <pre><code>col A     col B      col C     col D     col E
  ------   -------     ----     -------    ------
                                 gh
  
  
                                 2h
  
  
  
                                 34 
  </code></pre>
  
  <p>code so far:</p>
  
  <pre><code>Sub Tester()
  CountBlanks 4
  End Sub
  
  Sub CountBlanks(ByVal colNum)
  columnLetter = ??
  columnCount = ??
  MsgBox "Count of column: " &amp; columnLetter &amp; " is " &amp; columnCount 
  End Sub
  </code></pre>
  
  <p>Expected result:</p>
  
  <pre><code>"Count of column: D is 5" 
  </code></pre>