create a new tab automatically

[sbrown64]

HiI have a list and I have just added a new name to the list. I now go to my main entry sheet and when I go to column F and click the down arrow it appears, so far so good.My question is, is there a way of automatically creating a new tab at the bottom with the new name?RegardsStephen​

 

[Fluff]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Not Intersect(Target, Range("F2:F100")) Is Nothing Then
      If Not Evaluate("isref('" & Target.Value & "'!a1)") Then
         Application.ScreenUpdating = False
         Sheets.Add(, Sheets(Sheets.Count)).Name = Target.Value
         Me.Activate
      End If
   End If
End Sub

 

[sbrown64]

Hi

It came up with an error

invalid use of Me keyword.

 

[Fluff]

That code needs to go into the sheet module where data validation dropdown is located.

 

[sbrown64]

is that the main entry sheet or the lists tab?

I have tried it on both tabs and I get an error

object required.

 

[Fluff]

It's the sheet you select the value on, as per your op.

 

[sbrown64]

As i said, i created a new name to a list on the lists tab, then i went to the entry sheet and chose the name in the cell, i pressed tab and then run macro and error came up.

object required.​

 

[Fluff]

Did you put the code in the Entry Sheets code module?
If so what line of the code gave the error?

 

[sbrown64]

when i click step into the code, it highlights this and when i press F8 again
The message run time error 424, object required pops up
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Target, Range("F2:F100")) Is Nothing Then[/FONT]

 

[Fluff]

Have you changed the code at all? because you cannot step-into the code I supplied.