Replace Blank/empty cell with a string value
<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>