Auto Complete tab names

If your workbook has 12 sheets already this macro would rename them for you

Where to add code

http://www.bettersolutions.com/excel...C216621011.htm

Sub NameSheetTabs()
Dim MyArr As Variant
Dim i As Long

MyArr = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", _
"Jul", "Aug", "Sep", "Oct", "Nov", "Dec")

For i = LBound(MyArr) To UBound(MyArr)
On Error Resume Next
If Err.Number <> 0 Then
            MsgBox Err.Number & " " & Err.Description
            Err.Clear
          End If
Sheets(i + 1).Name = MyArr(i)
Next i
On Error GoTo 0
End Sub

VBA Noob

You could set up a template if you need to do it a lot

http://office.microsoft.com/en-us/ex...292861033.aspx

or maybe this event macro. Right click each sheet and select view code and paste in the below then Sheet will rename to value in A1

Private Sub Worksheet_Change(ByVal Target As Range)
         If Target.Address = "$A$1" Then
          On Error Resume Next
          ActiveSheet.Name = Range("A1").Value
          If Err.Number <> 0 Then
            MsgBox Err.Number & " " & Err.Description
            Err.Clear
          End If
         End If
         On Error GoTo 0
End Sub

VBA Noob