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

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

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