Thank you very much. It was very helpful.

Many Thanks. Warmest Regards,
Polochilde


"DaveO" wrote:

This is routine that will change the format of highlighted cells
without losing any data. To use it, copy and paste it into your
spreadsheet as a macro; then return to your sprdsht, highlight the
cells in question, and run the macro.

Sub Selected_Range_Format()
Dim rCell As Range
Dim TrueVal As Variant

For Each rCell In Selection.Cells
TrueVal = Trim(rCell.Value)
rCell.ClearContents
rCell.NumberFormat = "hh:mm;@"
rCell.Value = TrueVal
Next rCell
End Sub