Hi Dave J,
Yes! I put the macro for costomer's ribbon in Addin.
for me, I use one icon to multi macro for different workbooks as you need. e.g.
Sub mutli_command()
Dim wb As Workbook
If findr("Forex_Daily", ActiveWorkbook.Name) > 0 Then Application.Run "'Forex_Daily_WK.xls'!get_data_nw"
If findr("Daily Forex Rate", ActiveWorkbook.Name) > 0 Then Application.Run "'Daily Forex Rate Analyst 2012.xls'! Thisworkbook.Workbook_Open"
If findr("Headct_2012.xls", ActiveWorkbook.Name) > 0 Then Application.Run "'Headct_2012.xls'! Thisworkbook.Workbook_Open"
End Sub
Function findr(ByVal s As String, ByVal src As String) As Long
On Error GoTo errorhandler
findr = Len(src) - Application.Find(StrReverse(UCase(s)), StrReverse(UCase(src)))
Exit Function
errorhandler:
findr = 0
End Function
Lotuxel
Bookmarks