View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Dave Peterson Dave Peterson is offline
external usenet poster
 
Posts: 35,218
Default how to call a sub that has arguments

MyCode is the codename of the worksheet, right?

Remove the word Private from that worksheet_change procedure line:

I had this in the myCode worksheet module:

Option Explicit
Sub Worksheet_Change(ByVal Target As Range)
MsgBox Target.Address
End Sub

Then I called that procedure using:

Option Explicit
Sub testme()
Call myCode.Worksheet_Change(Target:=myCode.Range("a1") )
End Sub


This makes it look like A1 on that sheet changing--and making the
Worksheet_change fire.



Harold Good wrote:

Hi, I'm trying to call this procedure located in the MyCode module:
Sub Worksheet_Change(ByVal Target As Range)
code here
End Sub
(the above code works properly when it is in the Sheet1 (Budget) module)

From this procedure which is in the Sheet1 (Budget) module. How do I
write the code below? The best I can come up with is:
Sub YearChange()
Call MyCode.Worksheet_Change
End Sub

It does not work, I don't know how to handle the argument within the
parenthesis.

Also, I don't think I need to include the MyCode as part of the path,
but a similar Call procedure I've done without arguments only works if I
include this in the path. What might I have done wrong.

I would appreciate anyone's help with writing the bottom code correctly.

Gratefully,
Harold


--

Dave Peterson