Sub yellow()
'
' yellow Makro
' 23.01.2008
'
' Tastenkombination: Strg+z
'
    Selection.Interior.ColorIndex = 40
End Sub