制作序列，提示 应用程序定义或对象定义错误

nbwwming

   maxrow = wl.Cells(Rows.Count, 13).End(xlUp).Row  ' 13列最后一个数据所在行

   With wl.Range("b1 ").Validation   ‘b1引用 13列 从第4行到 maxrow 行 的数据 做为b1的下拉 列表
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$m$4:$m$" & maxrow
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = True
    End With


提示：应用程序定义或对象定义 错误 。
调试停留在
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$m$4:$m$" & maxrow  
这一行
请高手帮忙，指点一二，谢谢！