It works here. Returning "Thu" here.

You code can be greatly simplified:

Sub EntryDateII()
Selection.Text = Format(Now, "yyyy-mm-dd DDD hh:mm:ss")
End Sub

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/