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" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>>
>> 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]


>>
>> On Tue, 12 Jan 2010 21:23:33 +0530, "Sandeep Lohchab"
>> <(E-Mail Removed)> 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" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
>> news:(E-Mail Removed)...
>>>
>>> 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]
>
>
>>>
>>> On Tue, 12 Jan 2010 21:23:33 +0530, "Sandeep Lohchab"
>>> <(E-Mail Removed)> 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" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
> > 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" <(E-Mail Removed)> wrote in message
> >> news:(E-Mail Removed)...
> >>>
> >>> 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]
> >
> >
> >>>
> >>> On Tue, 12 Jan 2010 21:23:33 +0530, "Sandeep Lohchab"
> >>> <(E-Mail Removed)> 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
> >
> >
> .
>