Can't scroll in Excel with arrow keys: How to fix

set returnedItems to (display dialog “Press OK to send scroll lock keypress to Microsoft Excel or press Quit” with title “Excel Scroll-lock Fix” buttons {“Quit”, “OK”} default button 2)
set buttonPressed to the button returned of returnedItems
if buttonPressed is “OK” then
tell application “Microsoft Excel”
activate
end tell
tell application “System Events”
key code 107 using {shift down}
end tell
activate
display dialog “Scroll Lock key sent to Microsoft Excel” with title “Mac Excel Scroll-lock Fix” buttons {“OK”}
end if