Verifica Versão do Office

‘Existe algumas discrepâncias de código entre o excel 2003 e 2007
‘Para isso vale usar um artifício simples que verifica versão do office

Sub VerificaVersaoExcel ()

If Application.Version = “12.0” Then
MsgBox “A versão do Excel  é 2007.”
ElseIf Application.Version = “11.0” Then
MsgBox “A versão do Excel  é 2003.”
ElseIf Application.Version = “8.0” Then
MsgBox “A versão do Excel é 97.”
End If

End Sub