Good day, I have created the following button that will search against my
list of customers and create a tab based on their customer number

Private Sub CreateSheetsFromAList()
Dim MyCell As Range, MyRange As Range

Set MyRange = Sheets("RawData").Range("RawData!L:L")
Set MyRange = Range(MyRange, MyRange.End(xlDown))

For Each MyCell In MyRange
Sheets.Add After:=Sheets(Sheets.Count) 'creates a new worksheet
Sheets(Sheets.Count).Name = MyCell.Value ' renames the new worksheet
Next MyCell
End Sub

Now I need to add 2 more options that I am not sure how to add.
1. add an error out option that if a tab already exists to skip creating
that tab and move on

2. I would like to get a summary in a box back of the name and customer
number that were just created in that update so I can go and take a look at
that customer.

Any suggestions?

Thanks in advance

Neall






--
Neall