Solved: Loop in Column P to Convert value

[Bob Phillips]

[vba]

Sub ProcessData()
Dim i As Long, j As Long
Dim LastRow As Long

With ActiveSheet

LastRow = .Cells(.Rows.Count, "F").End(xlUp).Row
For i = 5 To LastRow

.Cells(i, "P").Value = ""
For j = 5 To 9

If Mid$(.Cells(i, "F").Value, j, 1) = "0" Then

.Cells(i, "P").Value = .Cells(i, "P").Value & "Q"
Else

.Cells(i, "P").Value = .Cells(i, "P").Value & _
Chr(Mid$(.Cells(i, "F").Value, j, 1) + 71)
End If
Next j
.Cells(i, "P").Value = .Cells(i, "P").Value & Mid$(.Cells(i, "F").Value, 10)
Next i
End With
End Sub
[/vba]