Inserting column in Excel using VB 6 ?

[alexlex]

How can I insert column in Excel using VB 6 ?
I write this code, but it does not work properly.
Can anyone help me?

Private Sub Command1_Click()

        Dim Ex As Object
        Dim ws As Object
        Set Ex = CreateObject("Excel.Application")
        Ex.Workbooks.Add (App.Path & "\test.xlt")
        
        Set ws = Ex.Worksheets(1)

        ws.Range("I3").Select
        ws.Selection.EntireColumn.Insert
        
        
        Ex.Visible = True

End Sub

[pclement]

The code should insert a column before the currently selected column. What is it that isn't working for you?

[alexlex]

VB 6 says than object does not support this method.

but thanks, I alrady find answer.