Writing to empty cells in a range?

[London_Calling]

I have many sheets of data that contain occasional and random blank cells. Before transferring the sheets to Access, I want to put 'no data' in each black cell. I've read how to do that here before but just can't find that snippet....

Edit: I should add, I have this much:

       Range("B2").Select
        myrange = ActiveCell.CurrentRegion

Could someone please remind me? Thanks very much.

 

[p45cal]

Selection.SpecialCells(xlCellTypeBlanks).Value = "no data"
or:
myrange.SpecialCells(xlCellTypeBlanks).Value = "no data"
or just:
Range("B2").CurrentRegion.SpecialCells(xlCellTypeBlanks).Value = "no data"

 

[London_Calling]

Selection.SpecialCells(xlCellTypeBlanks).Value = "no data"
or:
myrange.SpecialCells(xlCellTypeBlanks).Value = "no data"
or just:
Range("B2").CurrentRegion.SpecialCells(xlCellTypeBlanks).Value = "no data"

SpecialCells!

Thanks p45 < LOL

 

[Peter_SSs]

Good idea to include a structure like this so you code doesn't error if there are no 'specialcells' in the relevant range

On Error Resume Next
'your SpecialCells line of code here
On Error GoTo 0

 

[London_Calling]

Good idea to include a structure like this so you code doesn't error if there are no 'specialcells' in the relevant range

On Error Resume Next
'your SpecialCells line of code here
On Error GoTo 0

Good tip, Peter.

Cheers!