run time error 1004

[mrinal saha]

hi folks,

I am getting a stupid error, because of which entire project will go in vain.

just trying to convert some data from text to column. earlier i did it but now when i try to run with bunch of macro, it doesn't work. as soon as i select column(a:a)in code, i get error.

error received is :-
run time error 1004
application defined or object defined error

this is the piece of code..

Sheets("ACTD30BVR01").Activate
'text to column ACTD30BVR01
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 2), Array(16, 1), Array(21, 2), Array(31, 1), Array(37, 1), _
Array(48, 1), Array(82, 2), Array(101, 1), Array(106, 1), Array(128, 1), Array(133, 1), _
Array(143, 1)), TrailingMinusNumbers:=True
Columns("A:A").Delete


thanks,
Mrinal

 

[VoG]

Does it work if you don't select?

Sheets("ACTD30BVR01").Activate
'text to column ACTD30BVR01
With Columns("A")
    .TextToColumns Destination:=Range("B1"), DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 2), Array(16, 1), Array(21, 2), Array(31, 1), Array(37, 1), _
    Array(48, 1), Array(82, 2), Array(101, 1), Array(106, 1), Array(128, 1), Array(133, 1), _
    Array(143, 1)), TrailingMinusNumbers:=True
    .Delete
End With

 

[Joe4]

Is the column protected or hidden?
Does the worksheet name you are referencing exist?

 

[Jonmo1]

Try it without activating the sheet..

With Sheets("ACTD30BVR01")
    .Columns("A:A").TextToColumns Destination:=.Range("B1"), DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 2), Array(16, 1), Array(21, 2), Array(31, 1), Array(37, 1), _
    Array(48, 1), Array(82, 2), Array(101, 1), Array(106, 1), Array(128, 1), Array(133, 1), _
    Array(143, 1)), TrailingMinusNumbers:=True
    
    .Columns("A:A").Delete
End Sub

Also,
Is the sheet protected?
Are there any merged cells in the range?

 

[mrinal saha]

Hi All,

Thanks for your reverts..but doesn't help.

code doesn't work without activatiing the sheet .

column is not hidden or protected.
sheets name ref is ok.