On 7/01/2012 10:45 PM, John Menken wrote:
Thank you very much.
When I ran the code it kept throwing an error of "No cells found,"
then I realized that some of the cells only appear blank when they
actually contain a space. Sorry for not noticing that earlier. When re-
testing insuring that the contents of the cell were indeed empty, the
code you showed me ran perfect. Question: Is it possible to modify the
code so that it also changes cells with a space in them to the words
"No Location." Sorry for not noticing that before. Thanks again.

Hi John

Modify to suit

'1200 represents how far down the spreadsheet you need to go, rather
then check 65k + cells, you can set the upper limit.

'2 represents the starting cell as it assumes the 1st row is your Header.

finalrow = Cells(1200, 1).End(xlUp).Row
For i = 2 To finalrow
If Not Cells(i, 6).Value < "" Then
Cells(i, 6).Value = "No Location"
End If
Next i

HTH
Mick