Jon,

Your code should work as written. Try appending Cells to your
oUsedRange variable. E.g.,

For each oRange in oUsedRange.Cells


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





"Jon Turner" wrote in message
...
Dim oUsedRange as Excel.Range
Dim oRange as Excel.Range

oUsedRange = WorkSheets("Employees").UsedRange
For each oRange in oUsedRange <-- Blows up here
with member not
found

Next


P.S. I'm using VB.NET so there is no SET statement

Many Thanks in Advance