Option
Explicit
Sub
AlleBlätter()
Dim
oWsh
As
Worksheet
Dim
rngC
As
Range
Dim
x
As
Long
For
Each
oWsh
In
ActiveWorkbook.Sheets
Set
rngC = oWsh.UsedRange
rngC.Rows(1).Interior.Color = RGB(200, 200, 200)
For
x = 2
To
rngC.Rows.Count
Step
2
rngC.Rows(x).Font.Bold =
True
Next
x
Range(rngC.Columns(1).Cells(2), _
rngC.Columns(1).Cells(rngC.Rows.Count)).Font.Italic =
True
Range(rngC.Columns(rngC.Columns.Count).Cells(2), _
rngC.Columns(rngC.Columns.Count).Cells(rngC.Rows.Count)).Font.Italic =
True
With
rngC.Rows(3)
With
.Font
.Name =
"Courier New"
.Size = 12
.Bold =
False
.ColorIndex = 3
End
With
End
With
Next
oWsh
End
Sub