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

Answerbag | Terms of Service | Privacy Policy