title: VBA - cells color
body: <p>What is wrong with this code?
  I get an "ARG!" error</p>
  
  <pre><code>Public Function nr_kolor(kom As Range)  
    For Each komorka In kom
      wartosc = komorka.Font.Color
      wiersz = komorka.Row
      kolumna = komorka.Column + 3
      nr_kolor = wartosc
    Next komorka
    activesheet.Cells(wiersz, kolumna).Select
    Selection.Interior.Color = wartosc  
  End Function
  </code></pre>