Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
ActiveSheet.Next with hidden sheets
Hello,
I currently have a spreadsheet that has a 'veryhidden' sheet. I have written a macro to navigate foward and backwards throughout the spreadsheet, however, when it gets to the hidden sheets location, the macro will not skip over it. Macro: ActiveSheet.Next.Select Even when I use the macro recorder, the code is as per above?!?! I have found that the error is: 1004, 'Select method of worksheet class failed'. I have managed to use the errorhandler to move past this by calling the next sheet by name, but fear this sheetname may get changed in the future.... is there anyway of retrieving the sheet index number? Thanks, KK |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
ActiveSheet.Next with hidden sheets
Try this
On Error Resume Next ActiveSheet.Next.Select Do While Err.Number < 0 Err.Clear Worksheets(ActiveSheet.Index + 2).Select Loop On Error Goto 0 -- --- HTH Bob (change the xxxx to gmail if mailing direct) "KurviousKoala" wrote in message ... Hello, I currently have a spreadsheet that has a 'veryhidden' sheet. I have written a macro to navigate foward and backwards throughout the spreadsheet, however, when it gets to the hidden sheets location, the macro will not skip over it. Macro: ActiveSheet.Next.Select Even when I use the macro recorder, the code is as per above?!?! I have found that the error is: 1004, 'Select method of worksheet class failed'. I have managed to use the errorhandler to move past this by calling the next sheet by name, but fear this sheetname may get changed in the future.... is there anyway of retrieving the sheet index number? Thanks, KK |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
ActiveSheet.Next with hidden sheets
Actually, there is a problem if there is more than one very hidden sheets
next to each other. This overcomes that Dim nSkip As Long On Error Resume Next Do Err.Clear nSkip = nSkip + 1 Worksheets(ActiveSheet.Index + nSkip).Select Loop Until Err.Number = 0 -- --- HTH Bob (change the xxxx to gmail if mailing direct) "KurviousKoala" wrote in message ... Fab!!! thanks a million :-) "Bob Phillips" wrote: Try this On Error Resume Next ActiveSheet.Next.Select Do While Err.Number < 0 Err.Clear Worksheets(ActiveSheet.Index + 2).Select Loop On Error Goto 0 -- --- HTH Bob (change the xxxx to gmail if mailing direct) "KurviousKoala" wrote in message ... Hello, I currently have a spreadsheet that has a 'veryhidden' sheet. I have written a macro to navigate foward and backwards throughout the spreadsheet, however, when it gets to the hidden sheets location, the macro will not skip over it. Macro: ActiveSheet.Next.Select Even when I use the macro recorder, the code is as per above?!?! I have found that the error is: 1004, 'Select method of worksheet class failed'. I have managed to use the errorhandler to move past this by calling the next sheet by name, but fear this sheetname may get changed in the future.... is there anyway of retrieving the sheet index number? Thanks, KK |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
ActiveSheet.Next with hidden sheets
Interesting problem:
Sub Nextsheet() Dim sh As Object If ActiveSheet.Index = Sheets.Count Then MsgBox "At the last sheet" Exit Sub End If Set sh = ActiveSheet.Next Do While sh.Visible < xlSheetVisible If sh.Index < Sheets.Count Then Set sh = sh.Next Else MsgBox "Last visible sheet is selected" Exit Sub End If Loop sh.Select End Sub is a slightly different approach. -- Regards, Tom Ogilvy "KurviousKoala" wrote in message ... Fab!!! thanks a million :-) "Bob Phillips" wrote: Try this On Error Resume Next ActiveSheet.Next.Select Do While Err.Number < 0 Err.Clear Worksheets(ActiveSheet.Index + 2).Select Loop On Error Goto 0 -- --- HTH Bob (change the xxxx to gmail if mailing direct) "KurviousKoala" wrote in message ... Hello, I currently have a spreadsheet that has a 'veryhidden' sheet. I have written a macro to navigate foward and backwards throughout the spreadsheet, however, when it gets to the hidden sheets location, the macro will not skip over it. Macro: ActiveSheet.Next.Select Even when I use the macro recorder, the code is as per above?!?! I have found that the error is: 1004, 'Select method of worksheet class failed'. I have managed to use the errorhandler to move past this by calling the next sheet by name, but fear this sheetname may get changed in the future.... is there anyway of retrieving the sheet index number? Thanks, KK |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
hidden sheets | Excel Discussion (Misc queries) | |||
Copying new activesheet after other activesheet is hidden? | Excel Programming | |||
"With Sheets" Issue - macro on one sheet to affect hidden rows on other sheets | Excel Programming | |||
Hidden sheets | Excel Programming | |||
ActiveSheet.ShowAllData shows everything - way to have hidden _not_ show up? | Excel Programming |