Option Explicit
Sub FT()
Dim lngCounter As Long
Dim strValue As String
strValue = ActiveCell.Value
For lngCounter = 1 To Len(ActiveCell.Value)
If Mid(ActiveCell.Value, lngCounter, 1) Like "[?]" Then
Mid(strValue, lngCounter, 2) = "FT"
ActiveCell.Value = strValue
End If
Next lngCounter
End Sub