VBA Hex関数

Hex関数を使用して、16進から10進の処理をしようとしてますが 下記※のところで「型が一致しません」と出てしまいます。 色々変数の型を変えても、２つの※のどちらかで出てしまいます。 Dim r As Long Dim H2D As Long Dim CheckSum_Cal As Long For r = 1 To 10 　H2D = Hex(Cells(5, r)) ※ CheckSum_Cal = CheckSum_Cal + H2D　※ Next r Cells(5, r)を別の変数に入れても同じ結果になります。 どなたかお詳しい方、ご教示お願いいたします。