I have a spreadsheet that I need to read the D column all the way down. If
the cell in that column is pink(38) then I would like to take the contents
of that cell(not the color) and make it go up 1 and left 1. I was thinking
that I could use R1C1 format with something like R-1C-1 but I am unsure how
to do it. Can someone help me? Here is what I have so far.

For i = 1 To lastRow
Set currCell = ActiveWorkbook.Sheets("Sheet1").Cells(i, 4)
If currCell.Interior.ColorIndex = 38 Then
' need to take the contents and put it in the cell one up and
one left.
Else
MsgBox "Cell D" & i & " is NOT 38"
End If
Next

Thanks,
-Steven-