Public Function Md(Rng As Range)

Dim cnn As New ADODB.Connection, rst As New ADODB.Recordset

strNameFile = ThisWorkbook.FullName
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strNameFile & _
"; Extended Properties=""Excel 8.0;HDR=No;IMEX=1"""
cnn.Open strConnect


SQL1 = "SELECT TOP 1 F1,COUNT(F1) as Sk FROM [Ëèñò1$" & Replace(Rng.Address, "$", "") & "] WHERE F1>0 "
SQL2 = " GROUP BY F1 "
SQL3 = " Order BY COUNT(F1) Desc"
Sql = SQL1 + SQL2 + SQL3

rst.Open Sql, cnn
rst.MoveFirst
Md = rst.Fields( 0 )
End Function