T
transferxxx
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
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