how to enter today's date into cell

[johnandrews]

I'm trying to enter today's date into a cell. What am I missing here?

Sub Macro4()
'
' Macro4 Macro
'

'
objXLSSht.Cells(1, 1) = Now()

End Sub

Heads up: I haven't used Macros in eight years; don't be surprised if I ask you to simplify something if I can't figure.