Hi all.....
   help me here........

        exception in red text ........

  and exception is
                           [ Run-time error - '91':
                             Pbject variable or with block variable not set ]

Private Sub Form_Load()
    Dim wb As Excel.Workbook, app1 As New Excel.Application
    Dim code As String, a As String, loc As Integer, i As Integer
    Dim rowno As Integer, price As Double
    Dim fsys As New Scripting.FileSystemObject
    Dim exist As String
    Set wb = app1.Workbooks.Add
    app1.Visible = True
    ActiveWorkbook.Worksheets(1).Name = "Price List2"
    ActiveSheet.Cells(1, 4).Font.Bold = True
    ActiveSheet.Cells(1, 4) = "PRICE LIST"
    ActiveSheet.Range("a4:dc5").Interior.Color = 16744448
    ActiveSheet.Range("a5:dc5").Interior.Color = RGB(220, 220, 220)
    Set abc = fsys.GetFile("c:\temp\xyz.xls")
    abc.Attributes = Normal
    'fsys.DeleteFile ("c:\temp\exp.xls")
    fsys.DeleteFile ("c:\temp\xyz.xls")
    'wb.SaveAs FileName:="C:\temp\exp.xls", FileFormat:=xlNormal, CreateBackup:=True
    wb.SaveAs FileName:="c:\temp\xyz.xls", FileFormat:=xlNormal, CreateBackup:=True
    app1.ActiveWorkbook.Save
    app1.Quit



    myfunction
End Sub

Private Sub myfunction()
    Dim wb As Excel.Workbook, app1 As New Excel.Application
    Dim code As String, a As String, loc As Integer, i As Integer
    Dim rowno As Integer, price As Double
    Dim exist As String
    Set wb = app1.Workbooks.Add
    app1.Visible = True
    ActiveWorkbook.Worksheets(1).Select
    ActiveWorkbook.Worksheets(1).Name = "Price List2"
    ActiveSheet.Cells(1, 4).Font.Bold = True
    ActiveSheet.Cells(1, 4) = "PRICE LIST"
    ActiveSheet.Range("a4:dc5").Interior.Color = 16744448
    ActiveSheet.Range("a5:dc5").Interior.Color = RGB(220, 220, 220)
    Set abc = fsys.GetFile(App.Path & "\xyz.xls")
    abc.Attributes = Normal
    'fsys.DeleteFile ("c:\temp\exp.xls")
    fsys.DeleteFile (App.Path & "\xyz.xls")
    'wb.SaveAs FileName:="C:\temp\exp.xls", FileFormat:=xlNormal, CreateBackup:=True
    wb.SaveAs FileName:=App.Path & "\xyz.xls", FileFormat:=xlNormal, CreateBackup:=True
    app1.ActiveWorkbook.Save
    app1.Quit
End Sub

DPK..

__________________
DPK..

to reference the ActiveWorkbook you need to put app1.ActiveWorkbook. Same for activesheet or activecell etc...
or else you can put them in a with block:

With app1
    .ActiveWorkbook......
    .......
End With

or else declare a variable to point to the object in question like you did already with:

Set wb = app1.Workbooks.Add

Thanks bluenose!!!

  Now the programe running perfectly...
  but i am not able to get how the code of Form_Load is running good and why was MyFunction's code giving me error while both functions had same code. Pls will you make me understand why this is..?

  I mean to ask in my form_load i am not prefixing app1 to ActiveWorkbook.Worksheets(1).Select but it is running so why it is demanding for app1 in MyFunction......

  I hope you are getting me what i want to say.....

  waiting for your reply....:)

DPK..