I wish to run a macro that will find a specified value in a range, say
C1:C9, when that value is found I want the macro to ?Cut? this value
as well as the value in the cell to the right, lets assume that the
specified value is 17 in cell C4, then highlight this and cell D4, Cut
and paste to C10, I?m using the
following example to do this..

Dim myCellPtr
    Dim myNew
         
    Set myNew = Range("C4:C9")
    For myCellPtr = 1 To myNew.Count
        If myNew(myCellPtr) = "17" Then
        myNew(myCellPtr).Cut
        Range("C10").Select
        ActiveSheet.Paste
        End If
    Next myCellPtr
    Set myNew = Range("C4:C9")
    For myCellPtr = 1 To myNew.Count
        If myNew(myCellPtr) = "18" Then
        myNew(myCellPtr).Cut
        Range("C11").Select
        ActiveSheet.Paste
        End If??.

How do I get the macro to select both cells i.e. C4 and D4?

Hello gregmalbaust-ga, and thanks for your Question!

For your specific example, what you will want to do in order to select
both the cell where the value is found, and the cell to the right of
it, is to replace the current line:

     myNew(myCellPtr).Cut

with the line:

    Range(myNew(myCellPtr), myNew(myCellPtr).Offset(0, 1)).Cut


The difference is to define a Range, following the pattern:

    Range(Cell1, Cell2)

      where Cell1 and Cell2 are, respectively, the upper-left and lower-right
      corners of the rectangular range (ex. A1 to C5)

and the Offset method of referencing a cell; in this case, offsetting
from myNew(myCellPtr) by zero rows down, one column right.

By extension, if you wanted to use this method to find an index value
in the first column of a table, then copy the value and the next six
cells to the right of the index value, you would use 'Offset(0,6)'. If
you want to select two rows' worth of the next six cells to the right,
you would use 'Offset(1,6)'. Just remember that, for the Offset
method, zero references the row and column of the referenced cell.

I hope this helps! If you would like some clarification to this
Answer, please let me know using the 'Request Clarification' button
above, before you rate and close this Question.

Good luck!

aht-ga
Google Answers Researcher

Thanks works perfectly