Excel gives you the sh and the activecell, so why not use them?
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
'
VB TO COPY CONTENTS FROM LAST SHEET TO THIS ONE
If Sh.Name = "Sheet1" Then Exit Sub
If Target.Cells(1, 1).Row < 11 Then Exit Sub
If Target.Cells(1, 1).Row 64 Then Exit Sub
If Target.Cells(1, 1).Column 1 Then Exit Sub
ActiveSheet.Unprotect
Sheets(Sh.Index - 1).Rows(Target.Cells(1, 1).Row).Copy
Sh.Paste
End Sub
--
HTH
Bob Phillips
(replace somewhere in email address with gmail if mailing direct)
"Allan R Jeffery"
<Allan.R.Jeffery.2cxxr5_1156248913.7807@excelfor um-nospam.com wrote in
message news:Allan.R.Jeffery.2cxxr5_1156248913.7807@excelf orum-nospam.com...
Thanks Franz
It worked a charm and thanks for the quick reply
Allan
--
Allan R Jeffery
------------------------------------------------------------------------
Allan R Jeffery's Profile:
http://www.excelforum.com/member.php...o&userid=37860
View this thread: http://www.excelforum.com/showthread...hreadid=574108