Good point Tommy! This is my workaround:

1) After the Call DeleteMenu, type:

Call posMacro
2) Place this macro in the same module:

Sub posMacro()
    Dim i As Integer
    i = Application.CommandBars(1).Controls.Count
    Cells(2, 3).Value = i + 1
End Sub

That took care of that Excellent point.

And that code worked beautifully! I think it's about done! I can't thank you enough Tommy! THANK YOU!