VBA activecell question

[sjk1193]

I have the following code in VBA

Sub Findfund()


ActiveSheet.Range("a:a").Find("Investor").Select
ActiveCell.Offset(1, 0).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select



End Sub


However the
Range(ActiveCell, ActiveCell.End(xlDown)).Select is giving me a

Runtime error '1004': application-defined or object defined error


Can anyone advise?

 

[selkov]

Depends on what your doing. What results are you trying to get with this macro?

 

[sjk1193]

I'm just trying to select the data in the row like you do with Shift+Ctrl+down