Simple Addition Macro Required

[Learn&Prosper]

Dear All

I want a selected range of cells to increase by the value of 7.
I know I can just copy 7 and do a paste special on these cells and add 7 to them but I want to know if I can highlight the range and run the macro to do this automatically.

You help would be appreciated.

Thanks

 

[Scott R]

Sub Add7()
'assigned to 'Ctrl+s' macro shortcut key

Dim s As Range

For Each s In Selection
    s.Value = s.Value + 7
Next s

End Sub

 

[Learn&Prosper]

Hi

Thanks but its not working for me. I copied this into the Module and the control+S does not work. I am a newbie at excel macros so not sure where I need to put this in order for it to work. I can't see to link it to a button either.

Please help me as I can't see what I am doing wrong.

Thanks

 

[Scott R]

Hi

Thanks but its not working for me. I copied this into the Module and the control+S does not work. I am a newbie at excel macros so not sure where I need to put this in order for it to work. I can't see to link it to a button either.

Please help me as I can't see what I am doing wrong.

Thanks

From the Developer menu (Excel Options, Popular, Show Developer tab in the Ribbon), select Macros, highlight the Macro name, hit the Options button, and then assign a Shortcut Key of Ctrl+s.