Thanks Chip. That worked fine.

Regards,
Alan


-----Original Message-----
Alan,

Try something like the following:

Dim Res As Long
Res = Application.WorksheetFunction.Min(Range("A1:A10"))
Debug.Print Res


Change the reference A1:A10 to your desired range.

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"AlanDavidson " <<AlanDavidson.168sv7@excelforum-
nospam.com
wrote in message
...
Could someone tell me how to use VBA to find the
minimum value
in a
column containing integers.

Regards,
Alan


---
Message posted from http://www.ExcelForum.com/



.