Knowing full well that the problem is solved, I thought that I would add an inputbox, point & click method.
Code:
Sub ShtName()
Dim z As String, n As Range
On Error GoTo errorhandler
Set n = Application.InputBox(prompt:="Click on a range on target worksheet", Type:=8)
z = n.Worksheet.Name
'Worksheets(z).Select 'to select the sheet that was clicked on
Exit Sub
errorhandler: MsgBox ("Unable to determine your 'selected' range. Please try again")
End Sub
Have a nice weekend.
_________________
Cheers, NateO
[ This Message was edited by: NateO on 2002-04-05 11:06 ]
Like this thread? Share it with others