In SelectionChange Make Last Rwo Dynamic
 

How can the end row be made dynamic as rows are inserted. I could name cell
A12001 as €œEND€� with the formula =ROW(A12000)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("GLOBAL").Rows("1:12000").Calculate
End Sub

Thank you.

--
Robert

In SelectionChange Make Last Rwo Dynamic
 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iRows As Long
iRows = Me.Cells(Me.Rows.Count,"A").End(xlUp).Row
Worksheets("GLOBAL").Rows("1:" & iRows).Calculate
End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Robert" wrote in message
...
How can the end row be made dynamic as rows are inserted. I could name
cell
A12001 as "END" with the formula =ROW(A12000)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("GLOBAL").Rows("1:12000").Calculate
End Sub

Thank you.

--
Robert

In SelectionChange Make Last Rwo Dynamic
 

Thank you Bob for your speedy assistance as always.
--
Robert