Sub GetRedCells()
Dim cell As Range
Dim rng As Range

For Each cell In Selection
If cell.Font.ColorIndex = 3 Then
If rng Is Nothing Then
Set rng = cell
Else
Set rng = Union(rng, cell)
End If
End If
Next cell

If Not rng Is Nothing Then
rng.Copy Selection(1).Offset(0, 1)
End If

End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)


"glassman" wrote in
message ...

i have a spreedsheet with a large amount of data
what i need to do is select a cloumn and insert a new one next to it
then o n the column with data select it but only the data in red then
paste it to the new black cloumn


--
glassman
------------------------------------------------------------------------
glassman's Profile:
http://www.excelforum.com/member.php...o&userid=28110
View this thread: http://www.excelforum.com/showthread...hreadid=476210