根据某些行的选择调整Excel列宽

Question

我正在开发一个宏，我想根据某些行的选择更改列宽。如何使用excel vba做到这一点？

例如，我想做以下事情：

  With Sheet22.Range(var22b)
    Columns("C:C").ColumnWidth = 40
  End With


  With Sheet22.Range(var22c)
    Columns("C:C").ColumnWidth = 90
  End With