Using Find then cut with offset in VBA

[Ironman]

Hello VBA guru's!!! I have a question regarding find cut and offset...

I'm trying to use Find to search for a word (Total), using xlpart and then moving or cutting the entire cell contents over one column. I'm using the below code but I'm not sure how the syntax would go here when using the cut.desination(offset,0,1) - - I'm close I think...but a little stumped.

Please Login or Register  to view this content.

Thanks and have a great day!

[StephenR]

Perhaps this will help?

Please Login or Register  to view this content.

[nimrod]

One thing you have to be carefull of is that it doen't find it in the new place and try to replace that as well... here's my sol'n

Please Login or Register  to view this content.

[Ironman]

Thanks StephenR, I tried your code suggestion and it errored out on ReplaceFormat=true. I commented that out and reran and it seemed to work, except it moves only the first occurance where total is found, there would be more in the sheet. Sorry, if I wasn't clear about that. Would I be able to add in a loop or something? Like

Do isearch = ""

Loop

With your suggested code between? Thanks again for your quick reponse!

[StephenR]

The loop in nimrod's code covers multiple finds so see if that does the trick. I hadn't noticed, but ReplaceFormat is not a valid parameter.

[Ironman]

Thanks to you both, StehphenR and nimrod - - nimrods worked perfectly!

Have a great day and thanks again.

iron