Naming the Tabs

You could save the names of your team members in an Excel sheet or a text file and have a macro that reads that data and automatically names sheets.

Perhaps like this:

Sub AutoReName()

Const sNameFile="C:\TeamNames.txt"

Dim iFileHandle As Integer
Dim lLoop As Long
dim sCurrName As String

iFileHandle=FreeFile
lLoop=0

Open sNameFile For Input As #iFileHandle
While Not Eof(iFileHandle)
  Input#iFileHandle,sCurrName
  lLoop=lLoop+1
  If lLoop > ActiveWorkbook.Sheets.Count Then
    ActiveWorkbook.Sheets.Add After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
  End If
  ActiveWorkbook.Sheets(lLoop).Name=sCurrName
Wend

Close#iFileHandle

End Sub

Untested, but something like that should do the job.

Thanks Andrew... I thought that a macro would be involved.. However, i have no knowledge of VBA. Guess have to read something on that....

Anyways Thank You for your time...

Cheers-
Inayat

I suppose that the other way would be to create a template which contains ten correctly named tabs and then just use that template whenever you want to start a new workbook relating to your team.

Thanks Andrew... I think that is a good idea...

Cheers-
Inayat