OK, that's perfect.

Thanks a TON!


"Dick Kusleika" wrote:

On Mon, 24 Mar 2008 13:08:02 -0700, Mr B
wrote:


I'm good with taking existing scripts and tweaking them but I don't have
anything to start with for this...


Watch for line wrap:

Sub MapData()

Dim rCell As Range, rRng As Range

Sheet2.UsedRange.Clear

Set rRng = Sheet1.Range("A1", Sheet1.Range("A1").End(xlDown))

For Each rCell In rRng.Cells
With Sheet2.Cells(rCell.Offset(0, 3).Value, rCell.Offset(0,
2).Value)
Select Case rCell.Offset(0, 4).Value
Case "Coal"
.Interior.Color = vbBlack
Case "Water"
.Interior.Color = vbBlue
Case "Solar"
.Interior.Color = vbCyan
Case "Wind"
.Interior.Color = vbYellow
Case "Gas"
.Interior.Color = vbMagenta
End Select

'.Comment.Text = rCell.Offset(0, 0).Value & "-" &
rCell.Offset(0, 1).Value
'.Comment.Visible = True
.AddComment rCell.Offset(0, 0).Value & "-" & rCell.Offset(0,
1).Value
End With
Next rCell
End Sub
--
Dick Kusleika
Microsoft MVP-Excel
http://www.dailydoseofexcel.com