Thread: help
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Chip Pearson Chip Pearson is offline
external usenet poster
 
Posts: 7,247
Default help

Put the following code in the sheet module for the worksheet that
contains the cell with the validation:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$1" Then
Worksheets(Target.Value).Select
If Err.Number < 0 Then
Worksheets.Add.Name = Target.Value
End If
End If
On Error GoTo 0
End Sub


Change $A$1 to the cell with the validation list.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"mc2" wrote in message
...
i have a workbook with a sheet in wich a cell, with data

validation, can
display a serie of names; i.e., example1, example2, example3,

.....

what i want is this:

if i select in that cell, for example, example1, then if sheet

example1
exists it will be slected, otherwise it will be created with

that name.

is this clear? i hope so :)

iŽll apreciate any solution, and ..., thanks in advance.