Проблема с макросами

[Vitaly12]

Поиск макс. значения на всех аркушах книги
___________________________________ _______________
Function dhMaxInBook(cell As Range) As Double
Dim sheet As Worksheet
Dim dblMax As Double
Dim dblResult As Double
Dim fFirst As Boolean
fFirst = True

For Each sheet In cell.Parent.Parent.Worksheets

dblResult = Application.WorksheetFunction.Max(s heet.UsedRange)
If fFirst Then

dblMax = dblResult
fFirst = False
End If

If dblResult > dblMax Then
dblMax = dblResult
End If
Next sheet

dhMaxInBook = dblMax
End Function
___________________________________ ______
Помогите запустить даную функцию. И правильно ли написан код?

[Hugo121]

Чего там запускать - в любую открытую книгу в стандартный модуль код, затем на листе в ячейку пишете (лучше выбирайте мастером в определённых пользователем)
=dhMaxInBook([Книга1]Лист3!$D$13)
как аргумент указываете ячейку той книги, где хотите найти максимальное (но не текущую с формулой - будет циклическая ссылка!)

Но тут пробел конечно нужно убить:
dblResult = Application.WorksheetFunction.Max(s heet.UsedRange)
Зря Вы код тегами не оформляете - тогда бы таких косяков не было.