Excel sheet tabs on the top row

[shreyas]

Hi is there a way by which i can have Excel sheet tabs on the top rather than currently at below.

Please help ASAP.

Thanks

 

[PaddyD]

1) welcome to the board
2) not that I'm aware of, other than turning your monitor upside down.

 

[Michael M]

Hi
Maybe if you explain WHY you want to do this, someone may have an alternative idea to help you out.
But, as PaddyD said, can't do it.

Regards
Michael M

 

[shreyas]

My exact requirement is to have some type of navigation for the Excel Web Access webpart. As my excel sheet is big with lots of sheets it becomes cumbersome for the users to navigate through it. Currently i am thinking of two options
1. Having some external navigation for the EWA.But not sure how is this possible.

2.Or else can we have a navigation at the top or left hand of the excel sheet but a fixed one.

Please help

-SB

 

[Michael M]

The best I can suggest is an Input Box that takes the user to the desired sheet.
Thsi will pop up every time the worksheet is opened.

Sub worksheet_open() 'Goto named Sheet
On Error GoTo Canceled
    varUserInput = Application.InputBox _
        (Prompt:="Insert Sheet name to open:", _
        Title:="Select month", Default:="", Type:=2) 'Type 2 = String
    If varUserInput = "False" Then Exit Sub
    If varUserInput = "" Then
        MsgBox "You have not entered a selection"
        Exit Sub
    End If
     Sheets(varUserInput).Select
     Exit Sub
Canceled:
MsgBox "No Sheet by the name of " & varUserInput
End Sub

Regards
Michael M

 

[Michael M]

Ooops, sorry.
Should be workbook_open........and it's only Monday.

Sub worksheet_open() 'Goto named Sheet
On Error GoTo Canceled
    varUserInput = Application.InputBox _
        (Prompt:="Insert Sheet name to open:", _
        Title:="Select month", Default:="", Type:=2) 'Type 2 = String
    If varUserInput = "False" Then Exit Sub
    If varUserInput = "" Then
        MsgBox "You have not entered a selection"
        Exit Sub
    End If
     Sheets(varUserInput).Select
     Exit Sub
Canceled:
MsgBox "No Sheet by the name of " & varUserInput
End Sub

Regards
Michael M

 

[West Man]

You could have hyperlinks in row 1 of each sheet.

 

[Michael M]

Hi West Man
That's an interesting spin on the question.
And something the OP might benefit from.
I guess my only concern would be that the OP's users would have to scroll across the page to find their Hyperlink if there were lots of them, which the OP has suggested there is.

Regards
Michael M

 

[Joe Was]

Attach this code to a button or Shape...
And, it will open a navagation menu to take the user to the correct sheet.

Sub NavigateSheets()
'Standard Module code, like: Module1!
'This code Shows all sheet names & asks the user for a Sheet's item number.
'Then selects the Sheet with the users inputed index number.
Dim lngSht&, lngIndex&
Dim strShtList$, strPrompt$, strActiveShtNm$
Dim wks As Worksheet

On Error GoTo myErr

strActiveShtNm = ActiveSheet.Name

For Each wks In Worksheets
lngIndex = lngIndex + 1
strShtList = strShtList & lngIndex & ". " & wks.Name & ", "
Next wks

strPrompt = "The Active Sheet is: " & _
strActiveShtNm & vbLf & vbLf & strShtList & vbLf & vbLf & _
"Go to Sheet Number:"
lngSht = Application.InputBox(prompt:=strPrompt, _
Title:="Select a Sheet's ""Item Number!""", _
Type:=1 + 2 + 64)

If lngSht = False Or lngSht = xlNull Then
lngSht = 0
GoTo myEnd
End If

If lngSht <> 0 Then
Worksheets(lngSht).Select
End If
GoTo myEnd

myErr:
MsgBox "You did not enter a sheet's ""Item Number"" or hit ""Cancel!""", _
vbCritical + vbOKOnly, _
"Error: No Sheet Number?"

myEnd:
End Sub

 

[Tom Urtis]

As Paddy said, sheet tabs in Excel are at the bottom, above the task bar and status bar.

Among other options is this one if you want a combobox drop-down on the menu bar as a sheet selection alternative to be at the top of the screen, which will always be visible no matter what sheet is active, because it's on the menu bar:

http://www.mrexcel.com/forum/showthread.php?t=301685