Sub Test()

   Dim c      As Range
   Dim rng    As Range
   Dim rng1   As Range

   Set rng = Intersect(Range("Print_Area"), Range("F:F"))
   Set rng1 = rng.Offset(1).Resize(rng.Rows.count - 1)

   For Each c In rng1
       If c.value <> c.Offset(1).value Then
           ActiveWindow.SelectedSheets.HPageBreaks.Add
Before:=c.Offset(1)
       End If
   Next
End Sub

How can I modify the above code - so that an inputbox appears allowing
me to select my column i.e replacing Range("F:F") with my selected
column

thxs