I appended Cells but still does the same. Any other suggestions ? TIA

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

Next



"Chip Pearson" wrote in message
...
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