I want to create a macro, which makes every 2nd row of a selected
area in bold and/or with grey background.
How I can do this?

Thanks for Your help
Regards
Juergen

Try either of these:

Sub EveryOtherShaded()
For c = Selection.Row To Selection.Count - 1 Step 2
Rows(c).EntireRow.Interior.ColorIndex = 15
Next c
End Sub

Sub EveryOtherBold()
For c = Selection.Row To Selection.Count - 1 Step 2
Rows(c).EntireRow.Font.Bold = True
Next c
End Sub

Good luck

http://www.xydata.com

Correction:

Sub EveryOtherShaded()
For c = Selection.Row To Selection.Row + Selection.Count - 1 Step 2
Rows(c).EntireRow.Interior.ColorIndex = 15
Next c
End Sub

Sub EveryOtherBold()
For c = Selection.Row To Selection.Row + Selection.Count - 1 Step 2
Rows(c).EntireRow.Font.Bold = True
Next c
End Sub