Tom,

***I got it to do it again - This worked

Sub Trial1()
Range("A1").Value = Format(Now(), "m-dd-yyyy")
End Sub

***Then I added a macro named Format - this gave me the compile erro
when trying to run Trial1

Sub Trial1()
Range("A1").Value = Format(Now(), "m-dd-yyyy")
End Sub

Sub Format()
MsgBox "Now I'm messing with you"
End Sub

***Then I renamed Format to Format1 - this ran fine

Sub Trial1()
Range("A1").Value = Format(Now(), "m-dd-yyyy")
End Sub


Sub Format1()
MsgBox "Now I'm messing with you"
End Sub

And I might not have been clear but all computers were getting th
error today until I changed the macro name. Another behavior I notice
was when there was a macro named Format, when typing in "format(" th
property popup did not show.

Jorda

--
jordanct
-----------------------------------------------------------------------
jordanctc's Profile: http://www.excelforum.com/member.php...nfo&userid=676
View this thread: http://www.excelforum.com/showthread.php?threadid=26617

I don't question that that is the cause. It absolutely is. I was saying in
your original post you said

The following code was working on Friday but today on several computers
the VBA code has a big problem with the format function.

To me that comes across as "some" and not "all". In fact my purpose in
posting was to reinforce the fact that that is the problem. And perhaps a
little bit quizzical that it wasn't all computers - but you now confirm that
it was all computers - which is consistent with expectations.


--
Regards,
Tom Ogilvy

"jordanctc" wrote in message
...

Tom,

***I got it to do it again - This worked

Sub Trial1()
Range("A1").Value = Format(Now(), "m-dd-yyyy")
End Sub

***Then I added a macro named Format - this gave me the compile error
when trying to run Trial1

Sub Trial1()
Range("A1").Value = Format(Now(), "m-dd-yyyy")
End Sub

Sub Format()
MsgBox "Now I'm messing with you"
End Sub

***Then I renamed Format to Format1 - this ran fine

Sub Trial1()
Range("A1").Value = Format(Now(), "m-dd-yyyy")
End Sub


Sub Format1()
MsgBox "Now I'm messing with you"
End Sub

And I might not have been clear but all computers were getting the
error today until I changed the macro name. Another behavior I noticed
was when there was a macro named Format, when typing in "format(" the
property popup did not show.

Jordan


--
jordanctc
------------------------------------------------------------------------
jordanctc's Profile:
http://www.excelforum.com/member.php...fo&userid=6761
View this thread: http://www.excelforum.com/showthread...hreadid=266175

DO NOT USE RESERVED WORDS AS PROCEDURE OR VARIABLE NAMES!!! ('shouting'
intended <g)

On Mon, 4 Oct 2004 15:26:30 -0500, jordanctc
wrote:


Tom,

***I got it to do it again - This worked

Sub Trial1()
Range("A1").Value = Format(Now(), "m-dd-yyyy")
End Sub

***Then I added a macro named Format - this gave me the compile error
when trying to run Trial1

Sub Trial1()
Range("A1").Value = Format(Now(), "m-dd-yyyy")
End Sub

Sub Format()
MsgBox "Now I'm messing with you"
End Sub

***Then I renamed Format to Format1 - this ran fine

Sub Trial1()
Range("A1").Value = Format(Now(), "m-dd-yyyy")
End Sub


Sub Format1()
MsgBox "Now I'm messing with you"
End Sub

And I might not have been clear but all computers were getting the
error today until I changed the macro name. Another behavior I noticed
was when there was a macro named Format, when typing in "format(" the
property popup did not show.

Jordan