irgendwie funktioniert mein Code nicht.
Ich möchte in einem definierten bereich Ab Zeile 13 Spalte A bis X die Schrift art und die Schriftgröße definieren. Dies soll bis zur letzten beschriebenen Zeile erfolgen.
Sub schriftart()
Dim lr As String
lr = ActiveSheet.Cells(1048576, 1).End(xlUp).Row
With Range(Cells(13, "A"), Cells(lr, "X"))
.Name = "Century Gothic"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
End Sub
Wie muss der Code richtig lauten?