Replacing Non-blank Cells

[StrangeFascination]

Apologies, if this seems an easy one, but I am rather new to Visual Basic. What I need is a Macro to replace all the non-blank cells in a selection with the value 1.

Any Help would be greatly appreciated

Matt King

 

[StrangeFascination]

Ah, a previous post helped me out

 

[VoG]

Hello and welcome to MrExcel.

Try

Sub atest()
Selection.SpecialCells(xlCellTypeConstants, xlNumbers).Value = 1
End Sub