That's because the macro recorder won't pickup the control button...
Try this:

Sub EnterDate()
Dim thisdate As String
thisdate = Date$
Sheets(Sheet1).Range("B4").Value = thisdate
' or you could use the sheets vba name
' Sheet1.Range("B4").Value = thisdate

End Sub

Replace the sheet and range with your own and run the macro

Rob


wrote:
Hi!

I have to insert a Static Date and Time in a Cell thru a Macro.

I know the key strokes for this function.

Current date Select a cell and press CTRL+;
Current time Select a cell and press CTRL+SHIFT+;

But I need to accomplish this in a Macro. Could anyone help me with
this?

When I tried to record a macro to capture these key strokes it didn't
work.