Net Send to many

[Tazflerts]

Hi All,

I am trying to send network notifications from a selection in Excel 2003

net send B1F4CU35 Please remember business casual Wednesday, Thursday and
Friday..

net send B1F4CU045 Please remember business casual Wednesday, Thursday and
Friday..

net send B1F4CU31 Please remember business casual Wednesday, Thursday and
Friday..

net send B1F4CU39 Please remember business casual Wednesday, Thursday and
Friday..

This version leaves the cmd window open



or



s: && cd \time sheet\wfm\net send\to agents\2009\ && net send B1F4CU040
Please exit after call work! >> 20091103agents.txt && exit

s: && cd \time sheet\wfm\net send\to agents\2009\ && net send B1F4CU25
Please exit after call work! >> 20091103agents.txt && exit

s: && cd \time sheet\wfm\net send\to agents\2009\ && net send B1F4CU19
Please exit after call work! >> 20091103agents.txt && exit

s: && cd \time sheet\wfm\net send\to agents\2009\ && net send BiF4CU20
Please exit after call work! >> 20091103agents.txt && exit



This version writes the conclusion to a file then exit





The method of sending the selection is from a macro attached to a command
button in the worksheet.



Sub NetSend()

Shell "cmd.exe /k" & ActiveCell, vbNormalFocus

End Sub


This works fine when a single cell is selected and you click on the command
button.

However it only runs the first line when a number of cells is selected (all
or select set like A2, A5, A7, etc


Any assistance is appreciated.

May thanks,
KEvin

 

[JLatham]

Untested, but this, or some minor variation of it, should work.

Sub NetSend()
Dim anyCell As Range

For Each anyCell In Selection
Shell "cmd.exe /k" & anyCell, vbNormalFocus
Next
End Sub