Sub sistence()
Dim s As String
Dim CurCol As String
CurCol = "A"
s = CurCol & "21"
With ActiveSheet
Set rngSource = .Range(.Range(s), .Range(s).End(xlDown))
End With
End Sub

--
Gary''s Student - gsnu200850


"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