Error Msg while using ABS, Count-if and Rank function

[Shailender]

Hello All, can someone help out with the formula which consist of ABS, Count-if and Rank function. I am getting an error message when I am trying to execute the code. The end output I have highlighted in sheet1 column B5.

 

[Debaser]

You must double the quotes in the formula like this:

ActiveCell.Formula = "=ABS(countif(" & StrColm & ":" & EndColm & ",""=0"")" & "-" & "Rank(" & Newcell & "," & StrColm & ":" & EndColm & "))"

As a side note, all that selecting is unnecessary.

 

[Shailender]

@Debaser, thank you for the answer. It is working now.