ANSWERS: 1
-
sub textCheck() if ActiveCell.Value = 1 then ActiveCell.Interior.ColorIndex = 36 ActiveCell.Next elseif ActiveCell.Value = 2 then ActiveCell.Interior.ColorIndex = 38 ActiveCell.Next Endif end sub Write this code in a module On the button call this macro.
Copyright 2023, Wired Ivy, LLC

by 