Copy Selected Range

[Oliversmo]

I am using the following macro to find a selected range, however the macro only copies the first cell from the 'find' statement not the entire range that is highlighted. Any ideas?

Sub Macro4()
'
' Macro4 Macro
' Macro recorded 9/25/01 by hclark
'
Cells.Find(What:="broker", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

SendKeys "+({end}{down})", False
SendKeys "+({end}{right})", False

Selection.Copy
End Sub

 

[DarkSun]

How are you running this macro?

It works for me.

Make sure you are just hitting play. The sheet must be active otherwise the Sendkeys will be run on what ever has focus.

 

[DarkSun]

that was supposed to say

"Make sure you are NOT just hitting play!"

 

[Oliversmo]

I set up a custom icom to run that particular macro and it will select the desired area but only copy the initial cell.

 

[logius]

Replace the last three lines of code with this:

Dim SelectThisRange As Range

      Set SelectThisRange = Range(ActiveCell, _
                            ActiveCell.End(xlToRight))
      Range(SelectThisRange, _
            SelectThisRange.End(xlDown)).Copy

You should probably move the

Dim

statement to the top of the procedure, though.