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