单元格区域有效性代码错在哪儿

单元格区域有效性代码错在哪里?
单元格区域有效性代码错在哪里?
 Sub 有效性()
     With Range("B15:B19", "B21:B25", "B27:B31", "B33:B37").Validation
     With Selection.Validation
         .Delete
         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
         xlBetween, Formula1:="=名称!$B$2:$B"
     End With
 End Sub

[解决办法]
你录制宏，看看有何区别？
[解决办法]
Sheets(1).Name = "概算"
  Range("B15:B19,B21:B25,B27:B31,B33:B37").Select
  With Selection.Validation
  .Delete
  .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=概算!$b$2:$b$100"
  End With
End Sub


试试！
[解决办法]
错在 $B$2:$B
$B$2 表示一个单元格 B2
$B 表示一列
混合起来 $B$2:$B 区域就无法解释了。

要么 $B$2:$B100 表示区域 B2 到 B100
要么 $B:$B 表示区域整个 B 列