This will get you started.
Sub GetFile()
Dim fNameAndPath As Variant
Dim rngPicked As Range
Dim rngPicked2 As Range
'fNameAndPath = Application.GetOpenFilename(FileFilter:="Text Files (*.CSV), *.CSV", Title:="Select File To Be Opened")
'If fNameAndPath = False Then Exit Sub
'Workbooks.Open Filename:=fNameAndPath
MyArray = Array(" I ", " S ", " A ")
Set rngLook = Range("A1:" & Selection.SpecialCells(xlCellTypeLastCell).Address)
pos = 1
For Count = 0 To UBound(MyArray) - 1
strFirstAddress = ""
With rngLook
Set rngFind = .Find(MyArray(Count), .Cells(1, 1), LookIn:=xlValues, lookat:=xlPart)
If Not rngFind Is Nothing Then
strFirstAddress = rngFind.Address
Set rngPicked = rngFind
Do
Set rngPicked = Union(rngPicked, rngFind)
Set rngFind = .FindNext(rngFind)
Loop While Not rngFind Is Nothing And rngFind.Address <> strFirstAddress
End If
End With
If strFirstAddress <> "" Then
rngPicked.Select
For Each c In Selection
posn = InStrRev(c.Value, MyArray(Count))
t = Right(c.Value, Len(c.Value) - posn - 2)
If IsNumeric(t) Then
Text = Left(c.Value, InStrRev(Left(c.Value, InStr(c.Value, ":")), " ") - 1)
Cells(pos, 2).Value = Text & " " & t
pos = pos + 1
End If
Next
End If
Bookmarks