Makro spinnt oder anwender?

Sub funzt nur einzeln gestartet aber nicht in einem prozedur.komisch:-(
hat jemand eine idee wie das besser geht

Sub FarbeFürWertQ()
'Spalte Q2 zelle nicht leer dann gelb
Sheets("Einteiler").Activate
Range("Q2:Q2000").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=WENN(NICHT(ISTLEER(Q2));WAHR;FALSCH)"
Selection.FormatConditions(1).Interior.ColorIndex = 19
End Sub


gruß

achim h.