How can I set the text alignment based on the cell value in the same manner
as Conditional Formatting?

'======Conditional text formatting
Range("F10:F30").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""TPG#"""

Selection.FormatConditions(Selection.FormatConditi ons.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = True
.TintAndShade = 0
End With
'======

Its easy to do in an "IF" statement, but that only works when the macro is
played.

I need the cell to align left when "TPG" is found in the cell. Conditional
formatting doesn't allow for alignment like it does for text formatting.

--
Regards

VBA.Noob.Confused
XP Pro
Office 2007