compiling a function to search for strike through titles using a cell and a range as input

Hi All,

I am a new bee for all Excel VBA programming, and I have to say that it is an amassing tool - that I have to learn how to use it.

I have been trying to compile a VBA function that gets an input of a cell location (A2 for example) and a range of cells to look for, in order to count the amount of strike through titles that have the same content as A2 cell.

my aim is to copy the function on a large amount of rows, and that my "Cell Location" input will follow the row number.

please find bellow the code that I have compiled:

Function CSV(Crng As Range, ParamArray Rng()) As Variant

  Dim R As Range, A As Variant
  For Each A In Rng
    For Each R In A
      If R.Font.Strikethrough And R.Value = Worksheets("Sheet2").Range(Crng).Text Then CSV = CSV + 1
    Next
  Next
End Function

the amasing thing is that if I change the variable in line 6 instead of "Crng" to a specific cell like "A2" - everything works, but the end result of this function will provide only the amount of strike through font of the title in cell A2.

I want to be able to copy the function on a large amount of cells and let the cell input follow the row number.

hopefully you will be able to fix the small issue in hand.

Appreciate your help and support,

Yariv