Got error on "SET" and "excel" object. kindly resolve
Set xl = CreateObject("excel.application")


Dim i As Long
Dim p As Long
Dim newCell As String
Dim xl As Excel.Application
Set xl = CreateObject("excel.application")
xl.Workbooks.Open (App.Path & "\Book1")
DoEvents
xl.Visible = True
For i = 1 To MSFlexGrid1.Rows - 1
For p = 1 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = p
MSFlexGrid1.Row = i
newCell = Chr(i + 64) & p
xl.Worksheets("Sheet1").Range(newCell).Value = MSFlexGrid1.Text
Next
Next