Macro to convert decimal to hours

Hi guys
help
I need a macro to convert a cell number into hours without formating the cell as time or [h]:mm


the one bellow is the what i have, but i don't want it anymore, because with this i have to format the cell as [h]:mm, to get the convertiong in hours.
but i need one function or macro, that won't be need to change the formating of the cell and i will be able to insert numbers above 100, and get it as 100:00 (not 04/01/1900 04:00:00)

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

Dim cell As Range
Dim r As Range

'Stop

' cater for clearing entire column(s)
If Target.Rows.Count = Me.Rows.Count Then Exit Sub

For Each r In Target.Cells
       If Not Intersect(r, Range("B5:B10005")) Is Nothing Then
        With r
            If Not .HasFormula Then
                Application.EnableEvents = False
                On Error Resume Next
                .Value = "0:" & Application.Ceiling(Round(.Value * 60, 0), 15)
                On Error GoTo 0
                Application.EnableEvents = True
            End If '.HasFormula
        End With 'r
    End If
Next 'r

End Sub

Hi,

It is not clear what your input format is or what you want your output format to be. I assumed the input was a number such as 5.15. You might want to try the following which outputs the value as text.

  .Value = "'" & Application.WorksheetFunction.Text([a1], "[h]:mm")

If you need additional help, I suggest you upload a sample Workbook.

Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic

Lewis