Create Range For Entire Column From A Cell?

I have this code:

Modules --> Module1:

Code:
Function Find(strSearch As String) As Range
Dim aCell As Range
Set aCell = ActiveSheet.Rows(1).Find(What:=strSearch, LookIn:=xlValues, _

[Code]....

I've walked this through the debugger. The Find function is finding the "Applicable" column fine (column 2). But how do I convert the aCell object to a range so that Intersect will be true, and will uppercase the cell value that was updated? If I were hardcoding this, I would return Range("B:B").