Thanks Kieran,
that got me on the right track. The following code gave me the result I was looking for
txtTime = Format(Sheets("WRITEFORMDATA").Range("B22").Value, "HH:MM AMPM")
D.S.
"Kieran" wrote in message ...
Try this format option
txtTime = Format(Sheets("WRITEFORMDATA").Range("B22").Value, "HH:m")
------------------------------------------------
~~ Message posted from
http://www.ExcelTip.com/
~~View and post usenet messages directly from
http://www.ExcelForum.com/