How to make macros work in both XL2003 and XL2010?!?

I'm experimenting with Ribbons in 2010, and apparrently I must create
the macro with '(Control As IRibbonControl)' to be able to call the
macro from a ribbon-button.

But this gives an a compile error in XL2003.

My quick test -macro is:

Sub Show_A1(Control As IRibbonControl)

If Range("A1").Value = "" Then
MsgBox "Cell A1 is empty!"
Else
MsgBox "Cell A1 = " & Range("A1").Value
End If

End Sub

How to make macros work in both XL2003 and XL2010 without compiler-error
in either???


CE

Hi Charlotte

What about testing for the version first before the Ribbon Code is fired.

This is a snippet of code from Ron Debruin's Mail code which tests which
version is running and looks for the applicable security structure
although I think you could use it for your purpose, you will have to
change this to suit..


If Val(Application.Version) < 12 Then 'Version Running is 2000-2003
Call the applicable code.
Else
Select Case Sourcewb.FileFormat
Case 50: Call the applicable code.
Case 51: Call the applicable code.
Case 52: Call the applicable code.
Case Else: Call the applicable code.
End Select
End If

HTH
Mick.

I knew that :-)

That's not the issue here....
....the issue is 'IRibbonControl' object which doesn't exists in
pre-ribbon versions of Excel.

unless there's a way to make a call from a ribbon to a macro without
this, it is impossible to create Excel-files with custom ribbons that
will work in both newer and older versions of Excel.

Surely Microsoft must have thought of that - question is: How???


CE


Den 10.08.2012 20:14, Living the Dream skrev:
> Hi Charlotte
>
> What about testing for the version first before the Ribbon Code is fired.
>
> This is a snippet of code from Ron Debruin's Mail code which tests which
> version is running and looks for the applicable security structure
> although I think you could use it for your purpose, you will have to
> change this to suit..
>
>
> If Val(Application.Version) < 12 Then 'Version Running is 2000-2003
> Call the applicable code.
> Else
> Select Case Sourcewb.FileFormat
> Case 50: Call the applicable code.
> Case 51: Call the applicable code.
> Case 52: Call the applicable code.
> Case Else: Call the applicable code.
> End Select
> End If
>
> HTH
> Mick.
>
>
>