View Single Post
  #1   Report Post  
Posted to microsoft.public.excel,microsoft.public.excel.misc,microsoft.public.excel.worksheet.functions
Sandeep Lohchab Sandeep Lohchab is offline
external usenet poster
 
Posts: 9
Default #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