类型不匹配Excel VBA

查看以下代码：

Sub tickscale_table()

exch = Cells(I, 13).Value
Worksheets("tickscale").Activate
Range("A1").Activate


Cells.Find(What:=exch, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
    xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=True _
    , SearchFormat:=False).Activate

 If ms = ActiveCell.Offset(0, 1) And cr = ActiveCell.Offset(0, 3) Then
     tickscaletype = ActiveCell.Offset(0, 4).Value2 And tickcale = ActiveCell.Offset(0,5).Value2

End If

上面是我试图在excelsheet表中搜索值的代码，当在第一列中找到该值时，如果条件为真，我将搜索同一行中另一列的值ms并cr满足该值。maketickscaletype和tickscale等于同一行中另一列的值。

我的类型不匹配

tickscaletype=ActiveCell.Offset(0,4).value

我尝试声明，tisckscaletype并将其tickscale作为变体，范围，字符串，保留为空，但仍然收到错误。