Sub ExportTXT_ter()
Dim FF&, rng As Range, c As Range
Set rng = Range("B3").CurrentRegion
FF = FreeFile()
Open ThisWorkbook.Path & "\" & "orange4.txt" For Output As #FF
For Each c In rng
If c.DisplayFormat.Interior.ColorIndex = 44 And Left(UCase(c), 1) = "A" Then
Print #FF, c.Text
End If
Next
Close #FF
End Sub