Sub JackSons()
Dim rownumber As Long

rownumber = ActiveCell.Row
If rownumber 1 And rownumber < 43 And _
Selection.Columns.Count = ActiveSheet.Columns.Count Then
'your code
End If

End Sub

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"Jack Sons" wrote in message
...
GS,

Thank you, but I don't want a message box to appear. Depending on wether
an
entire row is selected or only one cell or a limited group of cells, I
will
let something happen. I just need to know in that part of the code what in
the sheet is selected, an entire row or something else.

Jack.

"Gary''s Student" schreef in
bericht ...
first check that only one row is selected:

MsgBox (Selection.Rows.Count)

and then check that the entire row is selected:

MsgBox (Selection.Count)

for a complete single row, the first should be 1 and the second should
be
256
--
Gary's Student


"Jack Sons" wrote:

Hi all,

How to code:

If rownumber 1 and rownumber < 43 And an entire row is selected Then
....

The first part is no problem, but I don't know what to do with "And an
entire row is selected "

Your help will be appreciated.

Jack Sons
The Netherlands