Create tabs for each name in horrizontal list and add there data

[tonywatsonhelp]

Hi Everyone,

I have data I want to split up into clients names.
In range K5:"Last column" & 5
I have a list of clients names

I want to create a tab for each client and add there data to that page but I have a umber of problems please help if you can?

So for each name I want to create a tab call it that clients name, (but if the name is to long just shorten it not give me the error)
the filter sheet "Master" range "P25:P1000" for there name copy and paste into their sheet cell D25

please help if you can

Thanks

Tony

 

[DanteAmor]

Let's start with this and tell me what you need.

Sub Create_tabs()
  Dim c
  For Each c In Range("K5", Cells(5, Columns.Count).End(xlToLeft))
    Sheets.Add(after:=Sheets(Sheets.Count)).Name = Left(c, 30)
    Sheets("Master").Range("P25:P1000").Copy Range("D25")
  Next
End Sub