Error 2042 for application.match

Dim ValueToSearchFor, code As Variant

ValueToSearchFor = Trim(Worksheets("1").range("b2")

Worksheets("2").activate

code = Application.Match(ValueToSearchFor, ActiveSheet.Range("b:b"), 0)

It keeps giving me an error 2042 even if the value from b2 exists in Range("b:b") from 2nd sheet.