2003 Macro in Excel 2007

Hi,

I have a spreadsheet with a macro that I set up in Excel 2003. This
spreadsheet was then sent to a user who has Microsoft 2007. He opened the
macro added information and then sent to another user who has Microsoft 2003.
When that user opened the file and attempted to run the macro it bombed out
with the message "Run Time Failure '32809': Application Defined or Object
defined error"

Code is as follows:

Sub Spell()
'
' Spell Macro
' Macro to allow spell checking of password protected Excel Forms
'
' Keyboard Shortcut: Ctrl+s
'
ActiveSheet.Unprotect Password:="password"
Cells.CheckSpelling SpellLang:=1033
ActiveSheet.Protect Password:="password"
Range("A1:I1").Select
End Sub

I am at a complete loss and any help would be greatly appreciated

Did the user save the original 2003 workbook as a 2007 workbook before
second user opened and ran in 2003?

I cannot replicate the problem...........won't bomb out no matter which
version I use or save as..........2003 or 2007.

Does User 2 have the compatiblity pack installed?

I have so not having the pack installed may make a difference but cannot
test without uninstalling.

Download and install the Compatibility Pack so's you can open 2007 files in
2003.

http://support.microsoft.com/kb/923505

Just note that 2007 files opened in 2003 will have the columns and rows
limits of 2003.


Gord Dibben MS Excel MVP



On Thu, 19 Nov 2009 10:50:01 -0800, hnyb1
wrote:

Hi,

I have a spreadsheet with a macro that I set up in Excel 2003. This
spreadsheet was then sent to a user who has Microsoft 2007. He opened the
macro added information and then sent to another user who has Microsoft 2003.
When that user opened the file and attempted to run the macro it bombed out
with the message "Run Time Failure '32809': Application Defined or Object
defined error"

Code is as follows:

Sub Spell()
'
' Spell Macro
' Macro to allow spell checking of password protected Excel Forms
'
' Keyboard Shortcut: Ctrl+s
'
ActiveSheet.Unprotect Password:="password"
Cells.CheckSpelling SpellLang:=1033
ActiveSheet.Protect Password:="password"
Range("A1:I1").Select
End Sub

I am at a complete loss and any help would be greatly appreciated