Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > Run-Time Error
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 26
Default Run-Time Error
I get a run-time error '9': Subscript out of range.

Code:

ActiveWindow.DisplayWorkbookTabs = True
Sheets("UNIT BREAKOUT DATA").Visible = True
Sheets("UNIT BREAKOUT DATA").Select
Sheets("UNIT BREAKOUT DATA").Move Befo=Sheets(1)
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
****Sheets(Array("FFD", "PEND", "COVER", "PROFILE SUMMARY CHART (WING)", _
"NOT RECONCILED RATE {BY MONTH}", "WING PROFILES BY MONTH", "MIL Due
Overdue", "CIV Due Overdue", _
"IMR Red", "HELP", "AF 422", "Compliance", "FFD", "ABBREV",
"UsageLog", "PEND", "READINESS TYPES", _
"IMMUNIZATIONS", "DEMOGRAPHICS-AF 422", _
"4T Profile", "INTRO", "MR DATA")).Select**********
ActiveWindow.SelectedSheets.Visible = False
Sheets("UNIT BREAKOUT DATA").Activate

Debug is highlighting the code between **********
**********

This code was working fine, but just blowup.
Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 35,218
Default Run-Time Error
Subscript out of range usually means that you have a typo in that array of
worksheet names.

CurtH wrote:

I get a run-time error '9': Subscript out of range.

Code:

ActiveWindow.DisplayWorkbookTabs = True
Sheets("UNIT BREAKOUT DATA").Visible = True
Sheets("UNIT BREAKOUT DATA").Select
Sheets("UNIT BREAKOUT DATA").Move Befo=Sheets(1)
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
****Sheets(Array("FFD", "PEND", "COVER", "PROFILE SUMMARY CHART (WING)", _
"NOT RECONCILED RATE {BY MONTH}", "WING PROFILES BY MONTH", "MIL Due
Overdue", "CIV Due Overdue", _
"IMR Red", "HELP", "AF 422", "Compliance", "FFD", "ABBREV",
"UsageLog", "PEND", "READINESS TYPES", _
"IMMUNIZATIONS", "DEMOGRAPHICS-AF 422", _
"4T Profile", "INTRO", "MR DATA")).Select**********
ActiveWindow.SelectedSheets.Visible = False
Sheets("UNIT BREAKOUT DATA").Activate

Debug is highlighting the code between **********
**********

This code was working fine, but just blowup.

--

Dave Peterson
Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 26
Default Run-Time Error
Dave,

I keep getting the same error throughout my subroutine. This is strange
because everything worked fine. Now I keep getting these error when I
haven't change anything. Could there be any other reasons? Here is the code
that's doing it now:

Sheets(Array("WING DATA", "IMMUNIZATION DATA", "PHYSICAL DATA", "MR DATA",
"PIVOT DRIVER", "DIT PIVOT INPUT")).Select
Sheets("WING DATA").Activate
ActiveWindow.SelectedSheets.Visible = False
Sheets("PEND").Visible = True
Sheets("FFD").Visible = True
Sheets("PROFILE SUMMARY CHART (WING)").Visible = True
Sheets("NOT RECONCILED RATE {BY MONTH}").Visible = True
Sheets("WING PROFILES BY MONTH").Visible = True
Sheets("MR DATA").Visible = True
ActiveWindow.DisplayWorkbookTabs = False
Sheets("MIL Due Overdue").Visible = True
Sheets("HELP").Visible = True
Sheets("UsageLog").Visible = True
Sheets("List").Visible = False
Sheets("CIV Due Overdue").Visible = True
Sheets("IMR Red").Visible = True
Sheets("WING NR RATE FS").Visible = False
Sheets("Compliance").Visible = True
Sheets("READINESS TYPES").Visible = True
Sheets("DIT PIVOT CHART").Visible = False
Sheets("IMMUNIZATIONS").Visible = True
Sheets("DEMOGRAPHICS-AF 422").Visible = True
Sheets("4T Profile").Visible = True
Sheets("INTRO").Visible = True
Sheets("COVER").Visible = True
Sheets("COVER").Activate
End Sub

"Dave Peterson" wrote:

Subscript out of range usually means that you have a typo in that array of
worksheet names.

CurtH wrote:

I get a run-time error '9': Subscript out of range.

Code:

ActiveWindow.DisplayWorkbookTabs = True
Sheets("UNIT BREAKOUT DATA").Visible = True
Sheets("UNIT BREAKOUT DATA").Select
Sheets("UNIT BREAKOUT DATA").Move Befo=Sheets(1)
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
****Sheets(Array("FFD", "PEND", "COVER", "PROFILE SUMMARY CHART (WING)", _
"NOT RECONCILED RATE {BY MONTH}", "WING PROFILES BY MONTH", "MIL Due
Overdue", "CIV Due Overdue", _
"IMR Red", "HELP", "AF 422", "Compliance", "FFD", "ABBREV",
"UsageLog", "PEND", "READINESS TYPES", _
"IMMUNIZATIONS", "DEMOGRAPHICS-AF 422", _
"4T Profile", "INTRO", "MR DATA")).Select**********
ActiveWindow.SelectedSheets.Visible = False
Sheets("UNIT BREAKOUT DATA").Activate

Debug is highlighting the code between **********
**********

This code was working fine, but just blowup.

--

Dave Peterson

Reply With QuoteReply With Quote
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 35,218
Default Run-Time Error
Break into pieces...
Sheets(Array("WING DATA")).Select
if that works
Sheets(Array("WING DATA", "IMMUNIZATION DATA")).Select
and keep going until you get the error.

And you are sure that you have the right workbook active?


CurtH wrote:

Dave,

I keep getting the same error throughout my subroutine. This is strange
because everything worked fine. Now I keep getting these error when I
haven't change anything. Could there be any other reasons? Here is the code
that's doing it now:

Sheets(Array("WING DATA", "IMMUNIZATION DATA", "PHYSICAL DATA", "MR DATA",
"PIVOT DRIVER", "DIT PIVOT INPUT")).Select
Sheets("WING DATA").Activate
ActiveWindow.SelectedSheets.Visible = False
Sheets("PEND").Visible = True
Sheets("FFD").Visible = True
Sheets("PROFILE SUMMARY CHART (WING)").Visible = True
Sheets("NOT RECONCILED RATE {BY MONTH}").Visible = True
Sheets("WING PROFILES BY MONTH").Visible = True
Sheets("MR DATA").Visible = True
ActiveWindow.DisplayWorkbookTabs = False
Sheets("MIL Due Overdue").Visible = True
Sheets("HELP").Visible = True
Sheets("UsageLog").Visible = True
Sheets("List").Visible = False
Sheets("CIV Due Overdue").Visible = True
Sheets("IMR Red").Visible = True
Sheets("WING NR RATE FS").Visible = False
Sheets("Compliance").Visible = True
Sheets("READINESS TYPES").Visible = True
Sheets("DIT PIVOT CHART").Visible = False
Sheets("IMMUNIZATIONS").Visible = True
Sheets("DEMOGRAPHICS-AF 422").Visible = True
Sheets("4T Profile").Visible = True
Sheets("INTRO").Visible = True
Sheets("COVER").Visible = True
Sheets("COVER").Activate
End Sub

"Dave Peterson" wrote:

Subscript out of range usually means that you have a typo in that array of
worksheet names.

CurtH wrote:

I get a run-time error '9': Subscript out of range.

Code:

ActiveWindow.DisplayWorkbookTabs = True
Sheets("UNIT BREAKOUT DATA").Visible = True
Sheets("UNIT BREAKOUT DATA").Select
Sheets("UNIT BREAKOUT DATA").Move Befo=Sheets(1)
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
****Sheets(Array("FFD", "PEND", "COVER", "PROFILE SUMMARY CHART (WING)", _
"NOT RECONCILED RATE {BY MONTH}", "WING PROFILES BY MONTH", "MIL Due
Overdue", "CIV Due Overdue", _
"IMR Red", "HELP", "AF 422", "Compliance", "FFD", "ABBREV",
"UsageLog", "PEND", "READINESS TYPES", _
"IMMUNIZATIONS", "DEMOGRAPHICS-AF 422", _
"4T Profile", "INTRO", "MR DATA")).Select**********
ActiveWindow.SelectedSheets.Visible = False
Sheets("UNIT BREAKOUT DATA").Activate

Debug is highlighting the code between **********
**********

This code was working fine, but just blowup.

--

Dave Peterson


--

Dave Peterson
Reply With QuoteReply With Quote
  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 26
Default Run-Time Error
Yes, I did. An it error on the Sheets("PEND").Visible = True. Even, if I
delete out this line it owuld just hightlight the next line.

Yes, I'm sure about the workbook.

"Dave Peterson" wrote:

Break into pieces...
Sheets(Array("WING DATA")).Select
if that works
Sheets(Array("WING DATA", "IMMUNIZATION DATA")).Select
and keep going until you get the error.

And you are sure that you have the right workbook active?


CurtH wrote:

Dave,

I keep getting the same error throughout my subroutine. This is strange
because everything worked fine. Now I keep getting these error when I
haven't change anything. Could there be any other reasons? Here is the code
that's doing it now:

Sheets(Array("WING DATA", "IMMUNIZATION DATA", "PHYSICAL DATA", "MR DATA",
"PIVOT DRIVER", "DIT PIVOT INPUT")).Select
Sheets("WING DATA").Activate
ActiveWindow.SelectedSheets.Visible = False
Sheets("PEND").Visible = True
Sheets("FFD").Visible = True
Sheets("PROFILE SUMMARY CHART (WING)").Visible = True
Sheets("NOT RECONCILED RATE {BY MONTH}").Visible = True
Sheets("WING PROFILES BY MONTH").Visible = True
Sheets("MR DATA").Visible = True
ActiveWindow.DisplayWorkbookTabs = False
Sheets("MIL Due Overdue").Visible = True
Sheets("HELP").Visible = True
Sheets("UsageLog").Visible = True
Sheets("List").Visible = False
Sheets("CIV Due Overdue").Visible = True
Sheets("IMR Red").Visible = True
Sheets("WING NR RATE FS").Visible = False
Sheets("Compliance").Visible = True
Sheets("READINESS TYPES").Visible = True
Sheets("DIT PIVOT CHART").Visible = False
Sheets("IMMUNIZATIONS").Visible = True
Sheets("DEMOGRAPHICS-AF 422").Visible = True
Sheets("4T Profile").Visible = True
Sheets("INTRO").Visible = True
Sheets("COVER").Visible = True
Sheets("COVER").Activate
End Sub

"Dave Peterson" wrote:

Subscript out of range usually means that you have a typo in that array of
worksheet names.

CurtH wrote:

I get a run-time error '9': Subscript out of range.

Code:

ActiveWindow.DisplayWorkbookTabs = True
Sheets("UNIT BREAKOUT DATA").Visible = True
Sheets("UNIT BREAKOUT DATA").Select
Sheets("UNIT BREAKOUT DATA").Move Befo=Sheets(1)
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
****Sheets(Array("FFD", "PEND", "COVER", "PROFILE SUMMARY CHART (WING)", _
"NOT RECONCILED RATE {BY MONTH}", "WING PROFILES BY MONTH", "MIL Due
Overdue", "CIV Due Overdue", _
"IMR Red", "HELP", "AF 422", "Compliance", "FFD", "ABBREV",
"UsageLog", "PEND", "READINESS TYPES", _
"IMMUNIZATIONS", "DEMOGRAPHICS-AF 422", _
"4T Profile", "INTRO", "MR DATA")).Select**********
ActiveWindow.SelectedSheets.Visible = False
Sheets("UNIT BREAKOUT DATA").Activate

Debug is highlighting the code between **********
**********

This code was working fine, but just blowup.

--

Dave Peterson


--

Dave Peterson

Reply With QuoteReply With Quote
  #6   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 35,218
Default Run-Time Error
If you're getting a subscript out of range error on any line, then you probably
have a typo in the worksheet name on that line.

CurtH wrote:

Yes, I did. An it error on the Sheets("PEND").Visible = True. Even, if I
delete out this line it owuld just hightlight the next line.

Yes, I'm sure about the workbook.

"Dave Peterson" wrote:

Break into pieces...
Sheets(Array("WING DATA")).Select
if that works
Sheets(Array("WING DATA", "IMMUNIZATION DATA")).Select
and keep going until you get the error.

And you are sure that you have the right workbook active?


CurtH wrote:

Dave,

I keep getting the same error throughout my subroutine. This is strange
because everything worked fine. Now I keep getting these error when I
haven't change anything. Could there be any other reasons? Here is the code
that's doing it now:

Sheets(Array("WING DATA", "IMMUNIZATION DATA", "PHYSICAL DATA", "MR DATA",
"PIVOT DRIVER", "DIT PIVOT INPUT")).Select
Sheets("WING DATA").Activate
ActiveWindow.SelectedSheets.Visible = False
Sheets("PEND").Visible = True
Sheets("FFD").Visible = True
Sheets("PROFILE SUMMARY CHART (WING)").Visible = True
Sheets("NOT RECONCILED RATE {BY MONTH}").Visible = True
Sheets("WING PROFILES BY MONTH").Visible = True
Sheets("MR DATA").Visible = True
ActiveWindow.DisplayWorkbookTabs = False
Sheets("MIL Due Overdue").Visible = True
Sheets("HELP").Visible = True
Sheets("UsageLog").Visible = True
Sheets("List").Visible = False
Sheets("CIV Due Overdue").Visible = True
Sheets("IMR Red").Visible = True
Sheets("WING NR RATE FS").Visible = False
Sheets("Compliance").Visible = True
Sheets("READINESS TYPES").Visible = True
Sheets("DIT PIVOT CHART").Visible = False
Sheets("IMMUNIZATIONS").Visible = True
Sheets("DEMOGRAPHICS-AF 422").Visible = True
Sheets("4T Profile").Visible = True
Sheets("INTRO").Visible = True
Sheets("COVER").Visible = True
Sheets("COVER").Activate
End Sub

"Dave Peterson" wrote:

Subscript out of range usually means that you have a typo in that array of
worksheet names.

CurtH wrote:

I get a run-time error '9': Subscript out of range.

Code:

ActiveWindow.DisplayWorkbookTabs = True
Sheets("UNIT BREAKOUT DATA").Visible = True
Sheets("UNIT BREAKOUT DATA").Select
Sheets("UNIT BREAKOUT DATA").Move Befo=Sheets(1)
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
****Sheets(Array("FFD", "PEND", "COVER", "PROFILE SUMMARY CHART (WING)", _
"NOT RECONCILED RATE {BY MONTH}", "WING PROFILES BY MONTH", "MIL Due
Overdue", "CIV Due Overdue", _
"IMR Red", "HELP", "AF 422", "Compliance", "FFD", "ABBREV",
"UsageLog", "PEND", "READINESS TYPES", _
"IMMUNIZATIONS", "DEMOGRAPHICS-AF 422", _
"4T Profile", "INTRO", "MR DATA")).Select**********
ActiveWindow.SelectedSheets.Visible = False
Sheets("UNIT BREAKOUT DATA").Activate

Debug is highlighting the code between **********
**********

This code was working fine, but just blowup.

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson
Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Linear Mode Linear Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
Visual Basic Error Run Time Error, Type Mismatch Meg Partridge Excel Discussion (Misc queries) 12 September 10th 08 06:10 PM
run-time error '1004': Application-defined or object-deifined error [email protected] Excel Programming 5 August 10th 05 09:39 PM
Befuddled with For Next Loop ------ Run - Time Error '13' Type Mismatch Error rdavis7408 Excel Programming 1 August 25th 04 03:54 AM
Code Error - Run Time Error 5 (Disable Cut, Copy & Paste) Tim[_36_] Excel Programming 4 April 23rd 04 02:53 AM
Run-time error '11' & Run-time error '1004' Piers Clinton-Tarestad Excel Programming 0 January 9th 04 07:45 PM


All times are GMT +1. The time now is 07:11 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement