Donnie, try:


Dim rngData as Range
Set rngData = Range("B2", Range("B65536").End(xlUp))
For Each rng In rngData
....


--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


Donnie Stone wrote :


For Each rng In Range("B2:B5000") ' WANT TO BE ABLE TO MAKE THIS
DYNAMIC