This is from the RSLinx Help File...
The following macro writes a value to N7:0 in a PLC-5 using the RSLinx topic, testsol: This routine will write a word from Excel file RSLINXXL.XLS, DDE_Sheet tab, cell D7:
Sub Word_Write()
'open dde link: testsol=DDE Topic
RSIchan = DDEInitiate("RSLinx", "testsol")
'write data thru channel
DDEPoke RSIchan, "N7:30", Range("[RSLINXXL.XLS]DDE_Sheet!D7")
'close dde channel
DDETerminate (RSIchan)
End Sub