Me.Parent.Name

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Mangesh Yadav" wrote in message
...
This works fine:

Private Sub Worksheet_Calculate()
fname = Range("S2")
For Each bk In Workbooks
If Trim(left(bk.Name, Len(fname))) < fname Then Exit Sub
Next

but then is a FOR...NEXT required. No direct way to get the workbook name?

Mangesh





"Mangesh Yadav" wrote in message
...
I have a worksheet_calculate event. This event is fired when I open
another
sheet which does not have any events (or even a new sheet). The problem
is
that when the new sheet opens, it gives an error saying that
this_particular
sheet is not found. It is obviously looking for this_particular sheet in
the
new opened sheet. How to avoid this. I am looking for a code like:

Private Sub Worksheet_Calculate()

If Me.Name < Range("S2") Then Exit Sub

where Range("S2") has the filename of the original sheet where the above
event resides. The above checks for the sheetname, but I need the
workbook
name. I need something like
Workbook.Name




--
- Mangesh
------------------------------------------
Office XP & Windows XP