Macro not linking

[SIGNAL]

Hi I have this macro which links to an external software but it is not working ,I found this macro here http://www.aussiestockforums.com/forums/showthread.php?t=27924

Function ExcelToAB()  Dim AB As Object  Dim StockName As String  Dim ActiveDoc As Object  Dim ADS As Object  Dim SheetNo As Integer  ActiveSheet.Activate  StockName = Trim(ActiveCell.Value) 'Trim(Worksheets(1).Range("$A$2").Value)  If StockName = "" Then End  Set AB = CreateObject("Broker.Application")  Set ActiveDoc = AB.ActiveDocument  Set ADS = AB.Documents  ' set sheet number of currently active/selected AB chart tab defined in Excel Cell B2  SheetNo = Worksheets(1).Range("$B$2").Value  AB.ActiveWindow.SelectedTab = (SheetNo - 1) ' sheet of currently active AB chart  ' set symbol of excel cells A2:A7 in AmiBroker  ActiveDoc.Name = StockName  AB.RefreshAll  Set ActiveDoc = Nothing  Set ADS = Nothing  Set AB = NothingEnd FunctionPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)    If Not Intersect(Target, Range("A2:A7", "B2:B2")) Is Nothing Then        func = ExcelToAB()    End If End Sub

I hit F5 macro, don't show any error .http://i.imgur.com/0ecVncO.jpg
after I hit ALT + F8 ,I can see Macros in description but no macro name and I can't "Run","Step Into","Edit"

 

[VoG]

For this part of the code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A7", "B2:B2")) Is Nothing Then
func = ExcelToAB()
End If
End Sub

you have to right click the sheet tab, select View Code and paste it in.

Then clicking in the rangeA2:A7 or B2 should cause it to run.