Converting decimal time to hours:minutes in VBA

[JSA]

I have looked and found many ways to do this but none are working within what code i do have

I need to convert a general number into hours:minutes within VBA code

Source info is in minutes. I have previously used TimeValue and Format to make it work but for some reason this time i cannot get it to give me anything other than 1900/1/1 12:00 AM or just 0

ATime is the time in minutes

The relevant code is

Dim ATime As String
Dim AName As String
Dim i As Integer

i=2
ATime = Sheet2.Cells(i, 14)

While AName <> ""
Sheet4.Cells(i, 3).Value = ATime / 60 ----here is where i need it to convert

i = i + 1

ATime = Sheet2.Cells(i, 14)
Wend

Any help would be greatly appreciated

 

[jim may]

While AName << What is AName? How does it get assigned?

 

[JSA]

It stands for Agent Name and is just another piece for datum and is assigned AName = Sheet2.Cells(i, 7)

 

[shg]

But it's not assigned in the loop, so the loop will repeat until i exceeds the number of rows, and then you'll get a run-time error.

To converts minutes to an Excel serial date, divide by 1440, not 60.

 

[JSA]

There was more code in the loop, i just didnt want to clutter up the page so i removed it before posting as it didn't relate to the question

This problem has been bugging me for hours and I know i tried 1440 before but for some reason it didnt work.

Now entirely sure each iteration i used but this is what i ended up using

Sheet4.Cells(i, 3).Value = Format(ATime / 1440, "hh:mm")

Thanks for the help, it now works as intended