Question

1) How do I get the color of a cell using an Excel Macro? I couldn’t get this function work:

Sub BGCol(MRow As Integer, MCol As Integer)  
bgColor = Cells(MRow, MCol).Interior.ColorIndex  
End Sub

2) In the cell x,y I want to have the following formula:

=BGCol(x,4)

So how do I get the current row index?

Answer 1

You should use a Function:

Function BGCol(MRow As Integer, MCol As Integer)  As Integer
   BGCol = Cells(MRow, MCol).Interior.ColorIndex  
End Function