Adding a Prefix 0 to column using macros

Hey Guys, I'm stumped.

Hey Guys,

I have this program which I'm attempting to export to excel but the values, i.e. (hh:mm [2:15], [:50]), can only come through only as text format so that the values don't change even though the format is the same. I attempted to change the formats but unfortunately, whatever was imported stay as text. I found out that if I add a "0" in front of these entries and change the format to [hh:mm] it can work but 500+ files are to many to change manually so I entered the following macro but it only changes the first cell. If anybody can revise the following code so that the range is from e1:e700.

Thank You,

Sub AddTextToColumn()
    Dim i%
    Range("E1").Select
    Application.ScreenUpdating = False
    For i = 1 To 800
         ' add a value to precede cell's value - here I use the word "test"
        If ActiveCell.Value <> "" Then _
        ActiveCell.Value = "0" & ActiveCell.Value
        ActiveCell.Offset(1, 0).Range("e1").Select
    Next i
End Sub

Thanks Macropod,

The only thing is that there are some cells that got exported but since they didn't have any hours they were exported as, i.e. (:50). The formatting that you gave me turns the ones with hours, i.e. (1:50) into actual time but since the ones that don't have hours don't have a zero in front of it, I guess it still doesn't recognize it as time. Which is why I was looking into macros to automatically add a prefix of a zero and the code that i have works but for some reason only does the 1st row.

Thank You