' clear Makro
' 07.02.2008
'
' Tastenkombination: Strg+q
'
    Range( _
        "B2:J10,V2:AD10,AP2:AX10,AP22:AX30,V22:AD30,B22:J30,B42:J50,V42:AD50,AP42:AX50,BJ2:BR10" _
        ).Select
    Range("AP42").Activate
    With Selection.Interior
        .ColorIndex = 2
    End With
    Range("BK23:BL24").Select
End Sub