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

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" <bobbell@discussions.microsoft.com> wrote in message
news:4450E689-1114-4B18-B96E-71E5DD5DF75A@microsoft.com...
> 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

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