Excel macro [RESOLVED]

I need an Excel macro that does the following:

After I have selected a group of cells with the mouse, I exceute the macro (hotkey = ctrl/something) and the (numeric) contents of all the cells in the range gets divided by 1000. May be easy but I just can't figure out how to do it.

VB Code:

'DivideSelectedBy1000
 
Sub DivideSelectedBy1000()
 
'Enumerate through the values
Dim c As Integer ' Column Index
Dim r As Integer ' Row Index
 
For c = 1 To Selection.Columns.Count
    For r = 1 To Selection.Rows.Count
        Selection.Item(r, c).Value = Selection.Item(r, c).Value / 1000
    Next
    
Next
 
End Sub

Thanks for guiding me through the jungle of Excel :)