主题：求教:隐藏列的代码

以下代码是将所列出的列隐藏.

With Tables("物料信息_table1")
    .Cols("采购单价").Visible = False
    .Cols("销售单价").Visible = False
    .Cols("供货商").Visible = False
End With

现在希望根据 "CheckedComboBox1" 所列的字段名称(各个字段名称均以符号',' 隔开;)进行隐藏.

请问代码应该如何写/