Hi Jenn,
Try something based on:
Code:
Sub ColorIt()
Dim i As Long, R As Long, G As Long, B As Long, Rng As Range
With ActiveDocument.Tables(1)
For i = 2 To .Rows.Count
Set Rng = .Cell(i, 1).Range
Rng.End = Rng.End - 1
R = CLng(Rng.Text)
Set Rng = .Cell(i, 2).Range
Rng.End = Rng.End - 1
G = CLng(Rng.Text)
Set Rng = .Cell(i, 3).Range
Rng.End = Rng.End - 1
B = CLng(Rng.Text)
.Cell(i, 4).Shading.BackgroundPatternColor = RGB(R, G, B)
.Cell(i, 5).Shading.BackgroundPatternColor = RGB(R, G, B)
Next i
End With
End Sub
PS: Sepia is actually 112, 66, 20