Hi,
Can anybody offer some code (as I'm new to this) to alow the user to input a
name into a msg box and then search and display the corrct worksheet with
that name.
I thank you!

Anthony

one way:

Sub ActivateSheet()
Dim sSheetName As String
sSheetName = InputBox("Input Sheet Name", "Sheet Name", "Sheet1")
If sSheetName = "" Then Exit Sub
On Error Resume Next
Sheets(sSheetName).Select
On Error GoTo 0
End Sub

Regards

Trevor


"Anthony" wrote in message
...
Hi,
Can anybody offer some code (as I'm new to this) to alow the user to input
a
name into a msg box and then search and display the corrct worksheet with
that name.
I thank you!

thanks Trevor - I'll give that a try

"Trevor Shuttleworth" wrote:

Anthony

one way:

Sub ActivateSheet()
Dim sSheetName As String
sSheetName = InputBox("Input Sheet Name", "Sheet Name", "Sheet1")
If sSheetName = "" Then Exit Sub
On Error Resume Next
Sheets(sSheetName).Select
On Error GoTo 0
End Sub

Regards

Trevor


"Anthony" wrote in message
...
Hi,
Can anybody offer some code (as I'm new to this) to alow the user to input
a
name into a msg box and then search and display the corrct worksheet with
that name.
I thank you!