Input box to select column
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
|