Function to count differences between two columns

Hi,

below i have a spreadsheet with several columns worth of data, i want to use the function below to show me if there have been any changes between the selected range and the cells immeadiatly to the right in the next column, when i use the below i get a "VALUE!" error,

any help appreciated.

Function ColVar(RNG As Range)

Dim Cell As Range

Dim q As Long

Dim m As Long

Dim d As Long

q = 0

For Each Cell In RNG

Cell.Value = m

Cell.Offset(0, 1).Value = d

If d <> m Then q = q + 1

Next Cell

ColVar = q

End Function