Using Find + Select Range in VBA

[SammiBoi]

I want to make a macro to find a certain column heading in my spreadsheet that says "Outlet #" and then have select all of the non blank cells below it. There seems to be something wrong with my code. Can anyone please help?

ActiveSheet.Range(Cells.find(What:="Outlet #", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False),
        
        (Cells.find(What:="Outlet #", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).End(x1Down)).Select

 

[VoG]

Try

Sub test()
Dim Found As Range
Set Found = Cells.Find(What:="Outlet #", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
If Not Found Is Nothing Then Range(Found, Found.End(xlDown)).Select
End Sub

But you should not need to Select this range to work with it.

 

[Norie]

I can see various problems with that code.

The main one being is that it won't actually compile as it is.

And there is no constant x1Down it should be xlDown. ie a lower case L.

 

[SammiBoi]

VOG II

Thanks that did the trick!