Vba 程序导致类型不匹配

您好，我对此程序有问题：

Sub initiative(name As Range, initiative_range As Range, number As Integer)
    Worksheets("battle").Range("a6").Offset(0, number).Value = name
    Worksheets("battle").Range("b6").Offset(0, number).Value = Round(19 * Rnd) + 1 + CInt(initiative_range.Value)
End Sub

第三行导致类型不匹配问题。我称之为sub，使用：

Call initiative(Worksheets("character").Range("AD24"), Worksheets("character").Range("b1"), 1)

---

这意味着这四个组件中有一个是不匹配的数据类型：

Worksheets("battle").Range("b6").Offset(0, number).Value 
Round(19 * Rnd) 
1 
CInt(initiative_range.Value)

或者，

CInt（initiative\u range.Value）

无法转换为整数

或者，

number

不是一个数字

为什么不进入调试模式，检查每个组件并解决它呢

这可能是

CInt

部分