Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$O$7" Then
     If IsEmpty(Target) Then Exit Sub
        IF Range("O7") = Back THEN
   CALL Back
     End If
End Sub 
'Инфа отсюда http://www.programmersforum.ru/showthread.php?t=60413 (второе сообщение)

Sub Back(channel As String, selection As String, price As String, amount As String)
    Back "HILO_STANDARD", "Card 1 or further", "back_price", 5 'БЕСКОНЕЧНАЯ РЕКУРСИЯ?
'''''End Sub - У ПРОЦЕДУРЫ М.Б. ТОЛЬКО ОДИН END SUB

Dim feed As Integer, counter As Integer
Dim data As String
counter = 0
feed = 0
While counter < 5 And feed = 0
  feed = Application.DDEInitiate("xfeeder", "betting")
Wend
If feed > 0 Then

  data = "back|" & channel & "|" & selection & "|" & price & "|" & amount

  
  Dim cw As Worksheet, ldws As Worksheet
  Set cw = ThisWorkbook.ActiveSheet
  Set ldws = ThisWorkbook.Worksheets("Loading")
  If cw.name = ldws.name Then
    Set cw = ThisWorkbook.Worksheets(1)
    cw.Activate
  End If
  ldws.Activate
  Range("AA1000") = data
  Application.DDEPoke feed, "bet", Range("AA1000")
  cw.Activate
End If
End Sub

'ПРИМЕР ВЫЗОВА
SUB EXAMPLE
  CALL BACK("channel", "selection", "price", "amount")
END SUB