title: Replace Blank/empty cell with a string value
body: <p>Hope someone can help.  I need to populate any blank/empty cells within a range of cells with a specific string.  I also don't know that the last row would be in that range so I am looking for that first, I know that line of code works as I have used it for another function within the script.  Below is the code I am using: -</p>
  
  <pre><code>    LastRow = Cells(Rows.Count, 2).End(xlUp).Row
  
      For Each r In Range("AS22:AU" &amp; LastRow)
          If r.Value2 = vbNullString Then
              r.Value2 = "Greens"
          End If
      Next
  </code></pre>
  
  <p>I don't seem to get any compile errors when I run the code, it just does not work, I still have the same blank/empty cells.  </p>
  
  <p>Can anyone shed any light onto what I am doing wrong?</p>