You could use something like this:

Private Sub Worksheet_Calculate()
Me.Tab.ColorIndex = Range("D16").DisplayFormat.Interior.ColorIndex
End Sub

which I don't think will clear the Undo...