I need something that is to the purpose of:
if the cell is highlighted, copy the row and paste it here.

What is the code for testing whether a cell or row is highlighted?

Thanks.

What do you mean by "highlighted". HTH Otto
"J@Y" wrote in message
...
I need something that is to the purpose of:
if the cell is highlighted, copy the row and paste it here.

What is the code for testing whether a cell or row is highlighted?

Thanks.

Sub colortest()
If ActiveCell.Interior.ColorIndex = xlNone Then
MsgBox ("not colored")
Else
MsgBox ("colored")
End If
End Sub

--
Gary''s Student - gsnu200725

Great simple solution. Thanks.

"Gary''s Student" wrote:

Sub colortest()
If ActiveCell.Interior.ColorIndex = xlNone Then
MsgBox ("not colored")
Else
MsgBox ("colored")
End If
End Sub

--
Gary''s Student - gsnu200725

You are welcome
Simple is always good.
--
Gary''s Student - gsnu200725


"J@Y" wrote:

Great simple solution. Thanks.

"Gary''s Student" wrote:

Sub colortest()
If ActiveCell.Interior.ColorIndex = xlNone Then
MsgBox ("not colored")
Else
MsgBox ("colored")
End If
End Sub

--
Gary''s Student - gsnu200725