Calling subroutines and passing variables
 

hi,

I have the following code:

Code
-------------------

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.TextToDisplay = "CPO Reports" Then
a_variable = ActiveCell.Offset(ColumnOffset:=-3).Value
tofield = ActiveCell.Offset(ColumnOffset:=-5).Value

Select Case MsgBox("Email CPO?", vbQuestion + vbYesNo, "Confirm")
Case vbYes: Send_Unformatted_Rangedata (a_variable, tofield)

Case Else: Exit Sub
End Select



End If

End Su
-------------------


but it has a problem with the line:

Code
-------------------
Send_Unformatted_Rangedata (a_variable, tofield)

-------------------


as it displays an error saying "Compile Error Expected: ="

does anyone know what i'm doing wrong?
i'm sure i've passed two variables into another subroutine before...

thanks in advance,
Mat

--
matp
-----------------------------------------------------------------------
matpj's Profile: http://www.excelforum.com/member.php...fo&userid=2107
View this thread: http://www.excelforum.com/showthread.php?threadid=52760

Calling subroutines and passing variables
 

Try

Call Send_Unformatted_Rangedata (a_variable, tofield)

or

Send_Unformatted_Rangedata a_variable, tofield

--
Regards,
Tom Ogilvy



"matpj" wrote:


hi,

I have the following code:

Code:
--------------------

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.TextToDisplay = "CPO Reports" Then
a_variable = ActiveCell.Offset(ColumnOffset:=-3).Value
tofield = ActiveCell.Offset(ColumnOffset:=-5).Value

Select Case MsgBox("Email CPO?", vbQuestion + vbYesNo, "Confirm")
Case vbYes: Send_Unformatted_Rangedata (a_variable, tofield)

Case Else: Exit Sub
End Select



End If

End Sub
--------------------


but it has a problem with the line:

Code:
--------------------
Send_Unformatted_Rangedata (a_variable, tofield)

--------------------


as it displays an error saying "Compile Error Expected: ="

does anyone know what i'm doing wrong?
i'm sure i've passed two variables into another subroutine before...

thanks in advance,
Matt


--
matpj
------------------------------------------------------------------------
matpj's Profile: http://www.excelforum.com/member.php...o&userid=21076
View this thread: http://www.excelforum.com/showthread...hreadid=527607