ColumnLetter = Mid(rCell, InStr(1,rCell , “$") + 1, InStr(2, rCell, “$”) – 2)
you're missing the start position from 1st Instr