With code in Module 6, I created a button on a sheet as follows:
   ActiveSheet.Buttons.Add(1245, 16, 80, 16).Select
   Selection.Caption = "AutoFocus On"
   Selection.Name = "AutoFocusBut"
   Selection.OnAction = "FocusOn"
   Focus = True

I placed the sub "FocusOn" also in Module 6.
Public Sub FocusOn()
   If Focus = True Then
...
...

When the button is depressed I get the message: "Ambigous name detected:
FocusOn".

What am I missing.

Craig