Sub Top6Rows()
If ActiveCell.Row < 7 Then
MsgBox ("Not permitted")
End If
End Sub

An easier alternative might be to unlock rows 6 &below, then protect the
worksheet.

--
Ian
--
"AndyR" <AndyR.1vyfeb_1127718325.3448@excelforum-nospam.com> wrote in
message news:AndyR.1vyfeb_1127718325.3448@excelforum-nospam.com...
>
> Hi
>
> I have several macros associated with a worksheet, these macro's
> perform various simple functions, eg. insert rows, move rows up/down
> etc.
>
> What I would like is to know how to word error checking so that
>
> Rows cannot be moved above Row 7. (Rows 1-6 contain headings so I do
> not want a row 7 and Row 6 switched by running this macro.
> Rows 1-6 cannot deleted.
>
> Something along the lines of "If Activecell < A7 Then ErrorMessage"
> etc.
>
> Any ideas?
>
> Apologies if not clear.
>
> Regards
> Andy
>
>
> --
> AndyR
> ------------------------------------------------------------------------
> AndyR's Profile:
> http://www.excelforum.com/member.php...o&userid=15203
> View this thread: http://www.excelforum.com/showthread...hreadid=470669
>