[COLOR="Blue"]Function[/COLOR] MonMax(zone [COLOR="blue"]As[/COLOR] Range) [COLOR="blue"]As Double[/COLOR]
[COLOR="blue"]For Each[/COLOR] curCell [COLOR="blue"]In[/COLOR] zone.Cells
[COLOR="blue"]If[/COLOR] IsNumeric(Replace(curCell.Value, ".", ",")) [COLOR="blue"]Then[/COLOR]
[COLOR="blue"]If[/COLOR] [COLOR="red"]Replace(curCell.Value, ".", ",")[/COLOR] < 39448# [COLOR="blue"]Then[/COLOR]
[COLOR="blue"]If[/COLOR] MonMax < Replace(curCell.Value, ".", ",") [COLOR="blue"]Then[/COLOR] MonMax = Replace(curCell.Value, ".", ",")
[COLOR="blue"]End If[/COLOR]
[COLOR="blue"]End If[/COLOR]
[COLOR="blue"]Next[/COLOR] curCell
[COLOR="blue"]End Function[/COLOR]