Find a sheet within a workbook (If/Then/Else)

J

Jacy Erdelt

I have several sheets within a workbook. What I would like the program to do
is search through the sheet names and if there is a sheet name = to
txtName.Value then perform action, otherwise show a message telling the user
the input is not valid. I have already written the "then" and "else" portion
of this code, but I don't have the slightest idea how to have the program
search through the sheets to find the correct one (the "If"). Please help!
 
G

Gary''s Student

Maybe something like:

Sub getname()
Set txtName = Sheets("Sheet1").Range("A1")
v = txtName.Value
For Each sh In Sheets
If sh.Name = v Then
MsgBox ("FOUND IT!!")
Exit Sub
End If
Next
MsgBox ("did not find it.")
End Sub
 
R

Rick Rothstein

You can do your test this way...

Dim TestName As String
....
On Error Resume Next
TestName = Sheets(txtName.Text).Name
If Err.Number = 0 Then
MsgBox "Exists"
Else
MsgBox "Doesn't exist"
End If
 
Top