Insert Numerical One to Specified Cell

[adam]

Hi anyone,

I'm trying to clear the contents of the cell N16 of the active sheet and insert Numerical 01 to the same cell with a macro code. Here's the code I've got so far.

Code: Select all

Sub ClearCell()
    Range("N16").Clear
End Sub

How could I add a line to the code so that it clears the contents of the cell and add Numerical 01 to the cell.

Any help on this would be kindly appreciated.

Thanks in advance.

[StuartR]

Something like...

Code: Select all

Sub ClearCell()
    With Range("N16")
        .Clear
        .Value = 1
        .NumberFormat = "00"
    End With
End Sub

[adam]

Thanks for the help.Stuart. I really appreciate it.