Im getting a type mismatch on the "evaluate" line code. can someone
help?

dim Col_value as string
dim l_lastrow as long

l_lastrow = 50
Col_value = "B"
b1:b50

Col_value 1: Col_value l_lastrow
l_ans = ActiveSheet.Evaluate(" COUNTIF(Col_value & 1: & Col_value &
l_lastrow, S_in)")