Very Urgent....pls help (Resolved)

[sand]

Hi,

I hope someone would be able to help. Thanx

I have got two excel files. "Test1.xsl" and "Test2.Excel". I have written the following code.

Test1.xsl

Sub Product_Development() 
   Set wBook = Workbooks("Test2.xls") 
   wBook.Sheets("Sheet1").Activate 
   If wBook Is Nothing Then 'Not open 
           MsgBox "Workbook is not open", _ 
           vbCritical, "OzGrid.com" 
           Set wBook = Nothing 
           On Error GoTo 0 
       Else 'It is open 
           MsgBox "Yes it is open", _ 
           vbInformation, "OzGrid.com" 
           Set wBook = Nothing 
           On Error GoTo 0 
   End If 
   Range("A1").Select 
   ActiveCell.Offset(0, 0) = "Product Development" 
   'Dim frm As Object 
     
   'Dim test 
   'frm.OpenNewLeadEntryForm 
   'MsgBox test 
     
' wBook. 
     
' open new initiative form in internal funnel 
 
End Sub

How do i call a functionshown below that is in "Test2.xsl" from the above code?

Sub OpenNewLeadEntryForm() 
   Application.ScreenUpdating = False 
   frmNewLeadEntry.Show 
   'cell = "Product Development" 
End Sub

This is very urgent. I hope someone can help me. Thanx