S
SteveDB1
Ok, I've got the intitial elements working.
Do Until Selection.Interior.ColorIndex <> -4142
ActiveCell.Offset(1, 0).Select
Loop
If Selection.Interior.ColorIndex <> -4142 Then
'how do I define the last row selected?
'I tried the following and get a 1004 error.
range("$1: ActiveCell.EntireRow.cells()").Select
' I've also tried: range("$1:entirerow.cells()").select
' and range("$1:entirerow").select
' none of those work, and all throw a 1004 error.
End If
My goal now is to place the last row selected in the do loop into a
range().select (or a better choice) function so I can define the
PrintTitleRows element of PageSetUp
With ActiveSheet.PageSetUp
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
comnponent.
How would I accomplish this?
Thank you.
Do Until Selection.Interior.ColorIndex <> -4142
ActiveCell.Offset(1, 0).Select
Loop
If Selection.Interior.ColorIndex <> -4142 Then
'how do I define the last row selected?
'I tried the following and get a 1004 error.
range("$1: ActiveCell.EntireRow.cells()").Select
' I've also tried: range("$1:entirerow.cells()").select
' and range("$1:entirerow").select
' none of those work, and all throw a 1004 error.
End If
My goal now is to place the last row selected in the do loop into a
range().select (or a better choice) function so I can define the
PrintTitleRows element of PageSetUp
With ActiveSheet.PageSetUp
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
comnponent.
How would I accomplish this?
Thank you.