Copy cell if certain demands are met [Solved]

Hi,

I have an excel sheet with a lot of values. Sometimes I wan't to extract some of these cell values. I've tried to create a macro that copies the cell value(it could be text) if the cell background color is yellow and paste is into another cell. After that I want the values to be plotted into a scatter chart.

this is what I got, but it doesen't work...:

For Each cell In Worksheets("Sheet1").Range("A1:A30").Cells

If cell.Interior.ColorIndex = 6 Then
ActiveCell.Copy
Range("M1").Select
ActiveSheet.Paste

End If

Next


End Sub

Could anyone please help me?


Tor from Norway