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