VBA Question

[mlr0911]

How can I used the following code (which works) to cut the cell beside AMI Access and move it to the right also?
and loop through the entire sheet?

Set rngFound = Cells.Find(What:="AMI Access", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

rngFound.Cut Destination:=rngFound.Offset(-1, 1)
Set rngFound = Nothing

[royUK]

You must wrap your code on the Forum, it makes it easier to read & copy.

What exactly do you want to do when you loop through the ?

[mlr0911]

I have a worksheet that has multiple data that I need to copy 2 cells (side by side) and move up 1 row and over 2 cells.

I just can't figure it out how to do it. THe code I pasted isn't working the way I want it to.

Thanx

[T-J]

The Resize property will extend rngFound -

Please Login or Register  to view this content.

For the looping look at the FindNext method.
There is a nice little example in VBA help that you can use as a framework.