@How to add new worksheet on right side....

[Sandeep Lohchab]

Sir,

How to add new worksheet on right side of current selected worksheet? When
I press Shift+F11, new worksheet comes on left side, but I want it to
appear on right side. Another situation is that when I have many worksheet
opened, like 15+, then I have to press Ctrl+PageUp/PageDown many times to
select extreme left/right worksheet. Can there be a shortcut to make this
happen?

Also please tell where do I paste these(written below) in a code modulefor
setting focus on the
Name box and for renaming worksheet. Also tell how to create shortcut for
these.

Thanks in advance.
Warm Regards.
San

The F2 key will cause Excel to enter Edit mode. If the "Edit In Cell"
option is enabled, focus will be in the edit mode of the cell. If
"Edit In Cell" is not enabled, focus goes to the formula bar. For your
other questions, you can only address them with code. To set focus in
the Name dialog, paste the following in a code module:


Public Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As
Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As
Long
Public Declare Function FindWindowEx Lib "user32" Alias
"FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Sub SetFocusNameBox()
Dim Res As Long
Res = SetFocus( _
FindWindowEx( _
FindWindowEx( _
FindWindow("XLMAIN", Application.Caption) _
, 0, "EXCEL;", vbNullString) _
, 0, "combobox", vbNullString))
End Sub



To rename a sheet, use

Sub RenameWorksheet()
Application.CommandBars.FindControl(ID:=889).Execute
End Suib

You can assign SetFocusNameBox and RenameWorskheet to the shortcut
keys of your choice.

Cordially,
Chip Pearson
Microsoft MVP 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com
[email on web site]

Sir,

How to select Name box and Formula Bar from keyboard? And how to rename a
worksheet tab from keyboard?

thanks in advance.

San