Add sheet and name it. Please help. VBA to add 107 sheets

[pedie]

Hi,
I want my activeworkbook to add 107 sheets and name sheets as per value from V2 to V108. Is that posible? I current have only one sheet
I want sheet2.name = range v2.value for example and go one till all 107 more sheets are added and name.
Thanks for helping.
Pedie

 

[VoG]

Do you mean something like

Dim sh As String
sh = Sheet1.Range("B1").Value
Sheet1.Range("C50:L50").Copy Destination:=Workbooks("Book1.xlsm").Worksheets(sh).Range("A1")

 

[RoryA]

Dunno but I've now got one if you'd like it

Print it out and bring it to the pub next time...

 

[pedie]

I want the name of all of those sheet to be my client name, and whenever
they update (from diff book) I want the code to cloose client name worksheet and update the info

This could be funny for some..lol!

 

[JackDanIce]

You really should consider using a database instead of Excel for this...

Pub - I'll have a double Marker's Mark with ice and some salted cashew nuts please!

 

[lenze]

Yeah, a database would probably be best, but , with only 100+ clients, it can be done in Excel using only ONE sheet!!

lenze

 

[pedie]

Vog, lemmi give that a try.
Thank you all for suggestions.
I want my client to use book1 and then update book2 which is now shared but protected with a password.
I am doing this because when 2 clients updates in the same time by finding lowest empty cell in B col. it overwrite the info
that is being updated by another user....so I'm trying to skip that problem by creating 107 more sheets seperately for every client..lol!
Please suggest me something better....
I just donno what I am doing..I am trying..
Everyine thanks again!

 

[pedie]

Do you mean something like

Dim sh As String
sh = Sheet1.Range("B1").Value
Sheet1.Range("C50:L50").Copy Destination:=Workbooks("Book1.xlsm").Worksheets(sh).Range("A1")

Vog, the code above is working perfect but can we make the code skip to end with msgbox "U are not added" to data base....?

 

[VoG]

Do you mean like this

Dim sh As String
sh = Sheet1.Range("B1").Value
Sheet1.Range("C50:L50").Copy Destination:=Workbooks("Book1.xlsm").Worksheets(sh).Range("A1")
MsgBox "Your message here", vbInformation
Exit Sub

 

[pedie]

What I mean is that, suppose B1.value = name1 and the code does not find sheet named 'name1' then exit sub and my msgbox

 

[VoG]

Try

Dim sh As String
sh = Sheet1.Range("B1").Value
On Error GoTo ErrHandl
Sheet1.Range("C50:L50").Copy Destination:=Workbooks("Book1.xlsm").Worksheets(sh).Range("A1")
Exit Sub
ErrHandl:
MsgBox "Your message here", vbInformation
End Sub