Inputbox einbauen

Private Sub Zeilenumbruch_nach_Werteänderung2()
'Hier Spalte 2 = B
Dim i As Long
Application.ScreenUpdating = False
ActiveWindow.View = xlPageBreakPreview
With ActiveSheet
.ResetAllPageBreaks
For i = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row
If .Cells(i, 2)  .Cells(i - 1, 2) Then
.HPageBreaks.Add .Cells(i, 2)
End If
Next i
End With
ActiveWindow.View = xlNormalView
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = ""
End With
ActiveWindow.ScrollRow = 2
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Und die entsprechende Spalte will ich mittels Inputbox eingeben, aber es kommt immer ein Fehler. Was mache ich falsch? Hier das geänderte Makro.

Private Sub Zeilenumbruch_nach_Werteänderung()
Dim i As Long
Dim Wert1 As String
Wert1 = InputBox("Bitte Spalten-Nr. eingeben!?", "Spalten-Nr.", "1")
Application.ScreenUpdating = False
ActiveWindow.View = xlPageBreakPreview
With ActiveSheet
.ResetAllPageBreaks
For i = 1 To .Cells(.Rows.Count, Wert1).End(xlUp).Row
If .Cells(i, Wert1)  .Cells(i - 1, Wert1) Then
.HPageBreaks.Add .Cells(i, Wert1)
End If
Next i
End With
ActiveWindow.View = xlNormalView
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = ""
End With
ActiveWindow.ScrollRow = 2
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Vielen Dank für Eure Unterstützung!
Peter