title: change active cell fill color
body: <p>I have a workbook with some protected sheets.<br>
  Users enter data into specific cells of each sheet.<br>
  I want the active cell background color to change - for example to red - when it is highlighted and back to the original color when deselected.<br>
  I would like to find a macro to assign it to the workbook instead of each worksheet. </p>
  
  <p>I think this code is useful but since I'm a beginner I don't know which parameter should be changed to fit my demand. </p>
  
  <pre class="lang-vba prettyprint-override"><code>Sub ColorCells()
      Dim Data As Range
      Dim cell As Range
      Set currentsheet = ActiveWorkbook.Sheets("Ekandari")
      Set Data = currentsheet.Range("C5:D5,F5:M5,L9")
      For Each cell In Data
          cell.Interior.ColorIndex = 3
      Next
  End Sub
  </code></pre>