formatiere Schrift

Sub formatiere_Schrift()
'
' formatiere_Schrift Makro
' Makro am 01.12.2010 von Mark Wolfgruber aufgezeichnet
'
' Tastenkombination: Strg+e
'
Dim ActiveCell_Column, ActiveCell_Row
Dim last_Column, last_Row
Dim i, a, c, Spalte, Zeile
Zeile = 1
Spalte = 1
 
ActiveCell.SpecialCells(xlLastCell).Select
 
last_Column = ActiveCell.Column
last_Row = ActiveCell.Row
 
 
Do While Zeile <= last_Row
 Spalte = 1
 Do While Spalte <= last_Column
    ' Cells(Zeile, Spalte).Activate
    Range(Cells(Zeile, Spalte), Cells(Zeile, Spalte)).Select
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Standard"
        .Size = 9
    End With
    Spalte = Spalte + 1
 Loop
    Zeile = Zeile + 1
Loop
 
   Cells(Zeile - 1, Spalte - 1).Activate
 
End Sub