EXCEL的宏：类range的select方法无效

目的：多个sheet表中的b列，是文本格式的数值，想通过宏处理：选择b列，选择为常规，然后使用分列。
For i = 1 To 3
Sheets(i).Activate
Sheets(i).Columns("B:B").Select
Selection.NumberFormatLocal = "G/通用格式"
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Next
End Sub

但执行的时候，还是显示“Sheets(i).Columns("B:B").Select”为“类range的select方法无效”
加上了ACTIVATE也没用。