Macgru's idea worked fine for me

Sub Test()
Dim s As String

s = """Hours:""h"" Minutes:""mm"" Seconds:""ss"

'time as value
With [a1]
..NumberFormat = s
..Value = Now
End With

'time as string
Dim str As String
str = Format(Now, s)
[a2] = str
[a1].EntireColumn.AutoFit

End Sub


Regards,
Peter T

"Paul Black" wrote in message
...
Thanks for the Reply Macgru,

I Tried that But Keep Getting a Syntax Error.

All the Best.
Paul



From: Macgru

Uzytkownik "Paul Black" napisal w
wiadomosci ...
Hi Everyone,

I have this Bit of Code that Outputs the Total Processing Time of a
Macro .

Active.Offset(1, 0) = "Processing Time " & _
Format(((Timer - Start) / 24 / 60 / 60), "hh:mm:ss")

. in the Format 00:09:36 which Works Great.
What I would like is for it to Output with the Words Hours, Minutes
and
Seconds .

00 Hours 09 Minutes 36 Seconds.
I have Tried Using the "&" and Text But to No Avail.

Any Help will be Appreciated.
Thanks in Advance.
Paul



*** Sent via Developersdex http://www.developersdex.com ***

you can try to format cell like
hh" hours":mm" minurtes":ss" seconds"
mcg



*** Sent via Developersdex http://www.developersdex.com ***