Was ist an diesem Makro falsch

Sub DruckWechselSpalteG()
Dim rng    As Range
Dim i      As Long
Dim strTmp As String
Set rng = Application.ActiveWorkbook.Sheets("Daten").UsedRange
strTmp = ""
Application.ActiveWorkbook.Sheets("Daten").Select
With Application.ActiveSheet
' Alle Seitenumbrüche löschen:
For i = .HPageBreaks.Count To 1 Step -1
.HPageBreaks(i).Delete
Next i
' Seitenumbrüche setzen, sofern Wechsel in Spalte G:
For i = 1 To rng.Columns(7).Cells.Count
If strTmp  "" And rng.Columns(7).Cells(i).Value  strTmp Then
.HPageBreaks.Add Before:=.Range("A" & rng.Columns(7).Cells(i).Row)
End If
strTmp = rng.Columns(7).Cells(i).Value
DoEvents
Next i
' Druckbereich auf Spalten A:Z des benutzten Bereiches einschränken:
.PageSetup.PrintArea = rng.Range("A:Z").Address
End With
Set rng = Nothing
ActiveWindow.SelectedSheets.PrintPreview
End Sub