Dim MyString, MyNumber
Dim I, J, K, S As String
Dim f As Variant
file = Application.GetOpenFilename("", 0, _
"Select ZEEI Log file", "", 0)
Open file For Input As #1
Sheets("ZEEI").Select
Cells.Clear
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With...