View Single Post
  #10   Report Post  
Posted to microsoft.public.excel.programming
Norman Jones Norman Jones is offline
external usenet poster
 
Posts: 5,302
Default Setting a value in an add-in

Hi Polandic,

Private Sub Workbook_Open()
Application.Run ("WorksheetB.xls!SetName('test')")
End Sub


If the name of the second workbook is WorksheetB.xls, then try:

Private Sub Workbook_Open()

Application.Run "WorksheetB.xls!SetName", "Test"

End Sub


---
Regards,
Norman


"polandjc" wrote in message
...
OK this is my most recent attempt:

Worksheet A:

Private Sub Workbook_Open()
Application.Run ("WorksheetB.xls!SetName('test')")
End Sub

Worksheet B:

Pubilc sFileName As String
Public Sub SetName(ByVal sName As String)
sFileName = sName
End Sub

Starting the execution in Worksheet A, I get a run time error 1004
(Application-defined or object-defined error).

The additional wrinkle to this is that I want Worksheet B to be a
protected
XLA.

Jim

"Dave Peterson" wrote:

And creating the function in one workbook and running it from the other
workbook
didn't work?

ps. I'm still confused at what's happening.