dim strCol as String
strCol = "B"
Set rngSource = .Range(.cells(21, strcol), .cells(21, strcol).End(xlDown))

I would be more inclined to use xlUp from the bottom of the range in case
there are any blanks but that is up to you...

dim strCol as String
strCol = "B"
Set rngSource = .Range(.cells(21, strcol), .cells(.rows.count,
strcol).End(xlUp))

--
HTH...

Jim Thomlinson


"mikeb" wrote:

Hi I need to define the range below, column B needs to be replaced with
variable CurCol. How do I do this?

Set rngSource = .Range(.Range("B21"), .Range("B21").End(xlDown))

Thanks,
Mike