#Adding new worksheet problem

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 module for
setting focus on the Name box and for renaming worksheet. Also tell how to
create shortcut for these.

Thanks in advance.
Warm Regards.
San

"Chip Pearson" wrote in message
...

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).Execu te
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]



On Tue, 12 Jan 2010 21:23:33 +0530, "Sandeep Lohchab"
wrote:

Sir,

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

thanks in advance.

San

Hi,

To go to the last sheet, press Ctrl+G and in the reference box, type
sheet3!A1, this will take you to cell A1 of sheet3. This assumes that the
name of the last sheet is sheet3. This should be faster than the Ctrl+Page
up/down

--
Regards,

Ashish Mathur
Microsoft Excel MVP
www.ashishmathur.com

"Sandeep Lohchab" wrote in message
...
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 module
for setting focus on the Name box and for renaming worksheet. Also tell
how to create shortcut for these.

Thanks in advance.
Warm Regards.
San

"Chip Pearson" wrote in message
...

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).Execu te
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]



On Tue, 12 Jan 2010 21:23:33 +0530, "Sandeep Lohchab"
wrote:

Sir,

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

thanks in advance.

San

This should give you a few ideas:
http://support.microsoft.com/default.aspx/kb/288402

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Ashish Mathur" wrote:

Hi,

To go to the last sheet, press Ctrl+G and in the reference box, type
sheet3!A1, this will take you to cell A1 of sheet3. This assumes that the
name of the last sheet is sheet3. This should be faster than the Ctrl+Page
up/down

--
Regards,

Ashish Mathur
Microsoft Excel MVP
www.ashishmathur.com

"Sandeep Lohchab" wrote in message
...
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 module
for setting focus on the Name box and for renaming worksheet. Also tell
how to create shortcut for these.

Thanks in advance.
Warm Regards.
San

"Chip Pearson" wrote in message
...

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).Execu te
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]



On Tue, 12 Jan 2010 21:23:33 +0530, "Sandeep Lohchab"
wrote:

Sir,

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

thanks in advance.

San


.