A UDF solution that is not as elegant as PKK's formula

Function WheresMax()
mymax = 0
For j = 1 To 8
myvalue = Worksheets(j).Range("C1").Value
If myvalue mymax Then
mymax = myvalue
mysheet = Worksheets(j).Name
End If
Next j
WheresMax = mysheet
End Function

best wishes
--
Bernard V Liengme
Microsoft Excel MVP
www.stfx.ca/people/bliengme
remove caps from email

"PKK" wrote in message
...
I'm trying to write a function that returns the worksheet name of a max
value
in a simple 3d reference.

Sheets 1 through 8 hold values in cell C1. In a summary page
=MAX(Sheet1:Sheet8!C1) returns the max value found in any of those cells.
Can a function return the sheet name of the sheet on which that max value
was
found?

Additionally, what errors might be generated if the Max value is on more
than one sheet?

Thank you!