How can I insert column in Excel using VB 6 ?
I write this code, but it does not work properly.
Can anyone help me? :confused:
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