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

[westconn1]

Application.Run "test2.xls!Sheet1.OpenNewLeadEntryForm"

change sheet1 to sheet no or thisworkbook, or module name as required

pete

[sand]

Hi,

After using the code given, i get the follwoing error message.

"
Runtime error '380'

Could not set the value property. Invalid property value. "

[sand]

Hi,

After using the code given, i get the follwoing error message.

"
Runtime error '380'

Could not set the value property. Invalid property value. "

The above error points to the follwing code

frmNewLeadEntry.Show

[westconn1]

you might need to set test2 as the active workbook

windows("Test2.xls").activate

or try prefix the form, with the worksheet similar to the macro

pete

[sand]

Hi,

I still get the error message

[westconn1]

sorry i am out of ideas, if you want to post a sample of the 2 spreadsheets someone may well look at it for you, but i won't now till tomorrow

pete

[sand]

I have managed to solve it thanx.

[Ecniv]

Hey, post up how you solved it - even if it is simple, then we can also know how you did it... and congrats btw in fixing it