I need to run a macro to delete a row if any cell in that row is selected.
However I do not want the macro to run if row 1 is selected.

Seems simple but I can't get my head around it using IF THEN.

I would be grateful for any help

As ALWAYS, post your code for comments
if activecell.row=1 then exit sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Joek" wrote in message
...
I need to run a macro to delete a row if any cell in that row is selected.
However I do not want the macro to run if row 1 is selected.

Seems simple but I can't get my head around it using IF THEN.

I would be grateful for any help

Thanks Don - a very simple solution.

I was working at something similar but the macro always hung at this point.

Thank you very much

Joe


"Don Guillett" wrote:


As ALWAYS, post your code for comments
if activecell.row=1 then exit sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Joek" wrote in message
...
I need to run a macro to delete a row if any cell in that row is selected.
However I do not want the macro to run if row 1 is selected.

Seems simple but I can't get my head around it using IF THEN.

I would be grateful for any help

.

How about something like this

If Selection.Row = 1 And _
Selection.Rows.Count = 1 Then Exit Sub

--
HTH,

Barb Reinhardt



"Joek" wrote:

I need to run a macro to delete a row if any cell in that row is selected.
However I do not want the macro to run if row 1 is selected.

Seems simple but I can't get my head around it using IF THEN.

I would be grateful for any help

Thanks for the prompt reply Barb

your solution was most helpful

Joe

"Barb Reinhardt" wrote:

How about something like this

If Selection.Row = 1 And _
Selection.Rows.Count = 1 Then Exit Sub

--
HTH,

Barb Reinhardt



"Joek" wrote:

I need to run a macro to delete a row if any cell in that row is selected.
However I do not want the macro to run if row 1 is selected.

Seems simple but I can't get my head around it using IF THEN.

I would be grateful for any help

with activesheet
If intersect(selection, .rows(1)) is nothing then
'do the work
else
msgbox "don't touch row 1!"
end if
end with

Joek wrote:

I need to run a macro to delete a row if any cell in that row is selected.
However I do not want the macro to run if row 1 is selected.

Seems simple but I can't get my head around it using IF THEN.

I would be grateful for any help

--

Dave Peterson

Thanks Dave

As with all these solutions - very simple and straightforward.

Thanks

Joe

"Dave Peterson" wrote:

with activesheet
If intersect(selection, .rows(1)) is nothing then
'do the work
else
msgbox "don't touch row 1!"
end if
end with

Joek wrote:

I need to run a macro to delete a row if any cell in that row is selected.
However I do not want the macro to run if row 1 is selected.

Seems simple but I can't get my head around it using IF THEN.

I would be grateful for any help

--

Dave Peterson
.