Found the answer in one of Stephen Bullen's replies on another thread
and it works:

I "fully qualified" the range and cells using:

With ActiveSheet
ID = .Range(.Cells(Start, 1), .Cells(Start, 1))
End With


BTW, this is a standard module.


Thanks

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