代码优化

alex2008alex

对所有的窗体控件TEXTBOX1  -  TEXTBOX16统一执行一个宏，有没有简便的写法：




Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = xlSecondaryButton Then
添加
CommandBars("abc").Delete
End If
End Sub
...............
..............
...............
Private Sub TextBox16_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = xlSecondaryButton Then
添加
CommandBars("abc").Delete
End If
End Sub


上面一个一个写太臃肿。
请大神指教！