Here is some logic to determine if an entire row is select or not:

Sub selectamatic()
With Selection
If .Rows.Count 1 Then
MsgBox ("More than one row Selected")
Exit Sub
End If
If .Count < Columns.Count Then
MsgBox ("Part of a row selected")
Else
MsgBox ("Entire row selected")
End If
End With
End Sub

--
Gary''s Student - gsnu200776


"carrera" wrote:

I have 2 macros, partially copied below, which are not working out.
What they are supposed to do is....if an entire row is not selcted, you get
the message box, but if one does select the entire row, there would be no
message box, and the selected entire row would be cut, and the procedure
would continue.

What is happening is that the message box comes up fine when only a cell is
selected, but I still get the message box when the entire row is selected,
and the macro doesn't proceed.

What am I leaving out? It's like I can't turn the IF THEN "off". I'm sure
it's something very simple.



If TypeName(Selection) < "entirerow" Then
MsgBox "MUST SELECT ENTIRE ROW"
Exit Sub
End If
Selection.Cut .....etc.....

or.....

If ActiveCell.Select < EntireRow Then
MsgBox "MUST SELECT ENTIRE ROW"
Exit Sub
End If

ActiveCell.Select = EntireRow
EntireRow.Cut..........etc.