VBA Code: Public Sub MouseOver_Color(obElem As Element, vPosX As Variant, vPosY As Variant)obElem.BackColor = RGB(246, 152, 4)obElem.ForeColor = RGB(255, 255, 255)obElem.UpdateEnd Sub