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