Sub for performing a function across multiple worksheets

Something along the lines of the below perhaps ?

Dim vWS As Variant, bWS As Byte
vWS = Array("January","February","March")
For bWS = LBound(vWS) To UBound(vWS) Step 1
    With Sheets(vWS(bWS)).Columns("G")
        .TextToColumns Destination:=Range("G1"), DataType:=xlDelimited, Tab:=True, FieldInfo:=Array(1, 1)
    End With
Next bWS