Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Skip Worksheets With Looping Coding
Hey all,
I have some coding that loops through a workbook and puts the tab name in cell B5 of multiple worksheets (around 265 or so this month). This has worked very well until this month in that I have a protected worksheet, not protected by me so I don't have the password, that causes Excel to error out when it comes to it. How can I get it to skip that worksheet? Here's the coding I've been using. Sub TabNameInCellB5() Dim iSheet As Long Application.ScreenUpdating = False For iSheet = 1 To ActiveWorkbook.Worksheets.Count Worksheets(iSheet).Cells(5, 2) = "'" & Worksheets(iSheet).Name Next iSheet Application.ScreenUpdating = True End Sub Any help would be very appreciated. -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...mming/200811/1 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Skip Worksheets With Looping Coding
Sub TabNameInCellB5()
Dim iSheet As Long Application.ScreenUpdating = False On error resume next 'ignore errors For iSheet = 1 To ActiveWorkbook.Worksheets.Count Worksheets(iSheet).Cells(5, 2) = "'" & Worksheets(iSheet).Name Next iSheet on error goto 0 'resume checking for errors Application.ScreenUpdating = True End Sub -- HTH... Jim Thomlinson "Joe_Hunt via OfficeKB.com" wrote: Hey all, I have some coding that loops through a workbook and puts the tab name in cell B5 of multiple worksheets (around 265 or so this month). This has worked very well until this month in that I have a protected worksheet, not protected by me so I don't have the password, that causes Excel to error out when it comes to it. How can I get it to skip that worksheet? Here's the coding I've been using. Sub TabNameInCellB5() Dim iSheet As Long Application.ScreenUpdating = False For iSheet = 1 To ActiveWorkbook.Worksheets.Count Worksheets(iSheet).Cells(5, 2) = "'" & Worksheets(iSheet).Name Next iSheet Application.ScreenUpdating = True End Sub Any help would be very appreciated. -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...mming/200811/1 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Skip Worksheets With Looping Coding
Thanks!
Jim Thomlinson wrote: Sub TabNameInCellB5() Dim iSheet As Long Application.ScreenUpdating = False On error resume next 'ignore errors For iSheet = 1 To ActiveWorkbook.Worksheets.Count Worksheets(iSheet).Cells(5, 2) = "'" & Worksheets(iSheet).Name Next iSheet on error goto 0 'resume checking for errors Application.ScreenUpdating = True End Sub Hey all, I have some coding that loops through a workbook and puts the tab name in [quoted text clipped - 16 lines] Any help would be very appreciated. -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...mming/200811/1 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Looping through worksheets | Excel Programming | |||
Skip or Ignore Missing Worksheets | Excel Programming | |||
Looping Thru Worksheets | Excel Programming | |||
Worksheets looping. | Excel Programming | |||
coding worksheets for undesired selections | Excel Programming |