hi,
something like this might work...

inp = InputBox("enter a column letter")

Replace Range("F:F") with Columns(inp).

regards
FSt1

" wrote:

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
Befo=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