Worksheet_Calculate problem

[Mangesh Yadav]

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 Yadav]

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

 

[Bob Phillips]

Me.Parent.Name

--

HTH

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

 

[Mangesh Yadav]

Hi Bob,

Thanks very much.

Mangesh

Me.Parent.Name

--

HTH

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


problem

 

[Bob Phillips]

Always a pleasure to help a helper Mangesh

Bob

 

[Mangesh Yadav]

Mangesh

Always a pleasure to help a helper Mangesh

Bob