VBA code to return Cell address

Hi

I have data in a column. I want a VBA code that finds out the maximum vaklue in the range and returns the address of that cell.

Thank You so much in Advance

PHP Code: 

Function AddressMax$(Rg As Range)
       Dim Rm As Range
            V = Application.Max(Rg)
       Set Rm = Rg.Find(V)
    If Not Rm Is Nothing Then AddressMax = Rm.Address(0, 0) & " : " & V: Set Rm = Nothing
End Function 


Do you like it ? So thanks to click on bottom left star icon « Add Reputation » !

Hi, I have got the max value but still unable to retrieve the cell address. For simplicity sake, please use A1: A100 as the range. I want the code within the subroutine and not use a function. Please advice.