Format Cell as Time

[stuarttottle]

Hello

i have this bit of code that i would like it to format as time when
the value is added to the cell

ActiveCell.Offset(0, 7).Value = Round(CallmediaAveHandlingHours /
NumberofWeekstoSummary, 2)

The CallmediaAveHandlingHours value is a total time taken from several
different worksheets.

Many Thanks

Stuart

 

[stuarttottle]

easier then i thought

ActiveCell.Offset(0, 7).Value =
Format(Round(CallmediaAveHandlingHours / NumberofWeekstoSummary, 2),
"Long Time")

Thanks

 

[JE McGimpsey]

One way:

With ActiveCell.Offset(0, 7)
.Value = Round(CallmediaAveHandlingHours / _
NumberofWeekstoSummary, 2)
.NumberFormat = "[hh]:mm"
End With