Run-Time error "1004 Unable to set the NumberFormat property of the Range Class

[Livin404]

Greetings,

I have a macro which is resulting in me get the error described in the Subject Line.
The current Format in Column E is Custom: dd mmm yyyy hhmm.

My macro is:
Sub twenty_four_hour_Clock()

   With Range("E1", Range("E" & Rows.Count).End(xlUp))
      .NumberFormat = "E"
      .Value = Evaluate(Replace("if(@="""","""",if(isnumber(@),text(mod(@,1),""hhmm""),@))", "@", .Address))
   End With

Thank you very much

 

[JoeMo]

Have you tried:
.NumberFormat = "dd mmm yyyy hhmm"

 

[DanteAmor]

.NumberFormat = "E"

"E" It is not a valid format

As JoeMo comments
Try :

.NumberFormat = "dd mmm yyyy hhmm"

 

[johnnyL]

@Livin404 is this in regards to your fill in missing dates question that I recommended that you start a new thread about? I ask because you had the same mistake in that code.

 

[Livin404]

"E" It is not a valid format

As JoeMo comments
Try :

.NumberFormat = "dd mmm yyyy hhmm"

Thank you for getting back. I don't know how I ended up with an "E". I suddenly realized I meant to have

.NumberFormat = "@"

. This allows me to remove everything but the last four digit of Julian Date and Time. The date is identified by another Macro I used which inserts the date.