问一个利用VB EXCEL宏实现EXCEL的行列插入的问题

Question

我看了下，一般使用VB宏插入行列都是大概使用以下这个命令（或者相似的原理）
Columns("C:C").Select  
  Selection.Insert   Shift:=xlToRight但是这个语句的前提是要插入的表是可选的当前表
比如当前选择sheet1
于是我在一段语句里对多个表插入行列的时候就会出问题
我是这样做的
Worksheets("sheet1").Columns("C:C").Select  
  Selection.Insert   Shift:=xlToRight
Worksheets("sheet2").Columns("C:C").Select  
  Selection.Insert   Shift:=xlToRight
Worksheets("sheet3").Columns("C:C").Select  
  Selection.Insert   Shift:=xlToRight
当表1插好后，就会提示错误说不可以选择
表2，表3就不能插入列了请问这样的问题怎么样解决呢
如何实现利用一个宏对多个表格进行插入？

Answer 1

Worksheets("sheet1").Columns("C:C").Insert  Shift:=xlToRight 
Worksheets("sheet2").Columns("C:C").Insert  Shift:=xlToRight 
Worksheets("sheet3").Columns("C:C").Insert  Shift:=xlToRight 
这样试试