Macro for key combinations

[peperosso]

Hi everyone,
I am trying to write a macro to rename my sheets in excel. My idea is that of using a key combination to open the propriety window of the development tab. The sequence of keys that allows to open the window is ALT,Q,P. Therefore my macro would sound like the following:

Sub rename_sheet()
SendKeys ("{%}")
SendKeys ("{Q}")
SendKeys ("{P}")
End Sub

However the macro is not working properly. Do you have any idea of why?
Thank you in advance for your help!

 

[CalcSux78]

SendKeys is incredibly unreliable. Since you're already using code, why not let the code change the sheet name? Definitely less messy.

Sub Rename_Sheet()
ActiveSheet.Name = "New Sheet 1"
End Sub

 

[My Aswer Is This]

If you have a large number of sheets and want to rename them do this.
On your first sheet in column "A" List all the names you want to name your sheets.

For example in Sheet(1) which is the sheet in the far left position on your tab bar.
In Range("A1") enter the name you want sheet(1) named
In Range("A2") enter the name you want sheet(2) named

And continue doing this for as many sheets as you have.
Now run this script:

Sub Rename_Sheets()
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Sheets(1).Activate
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To Sheets.Count
        Sheets(i).Name = Cells(i, 1).Value
    Next
Application.ScreenUpdating = True
End Sub