Guys,

I'm trying to execute Net Send command trough Excel VBA, and need your
help on my code below :

Sub Button2_Click()
Dim PCName$, Message$
PCName$ = Range("D2").Value
Message$ = Range("D4").Value

Shell "Net Send " & PCName$ & Message
End Sub

Thanks in advance guys.

rgds
MR