Adding a string to each cell in a selection

Hello everyone,

what I am trying to do: copy-paste a range of cells (they all contain strings) from one workbook to another ADDING a piece of string (always the same) to every cell in range.

Example:
Original cell content:

Sun
Is
Shining


Copied and modified cell content:
Sun_1
Is_1
Shining_1




What I did: the first solution I tried, in an example, is the following

1) Copy-paste the range
2) select the newly copied range
3) modify it

The code looks like this, and it works:

Please Login or Register  to view this content.

Now, if I move this solution to my main macro the code does not work.

Please Login or Register  to view this content.

Of course, all the variables have been declared before (dataSheet, dataRow, localFile, etc...). In fact, if I remove the last 4 rows of code the macro works perfectly fine so I am sure that the problem comes from the way I am doing this.

Being a beginner, I am assuming I am messing around in the wrong way with objects, methods and the like but I cannot figure out what is the problem.

FYI: the error I get when running the macro is: "Select Method of Range class failed".

Google tells me that this has something to do with changing sheets too many times, but I cannot find solution.

Thanks a lot for the help,

Konx

I only noticed that you do not have ELSE or END IF, not sure if that changes anything.

Just to change the text, I would do this (EndNumber is the total amount of rows you have):

Please Login or Register  to view this content.

Does this help?

Please Login or Register  to view this content.

Thank you JOHN and bmouse, problem solved

This forum is amazingly good and fast!

Konx

You're welcome. Glad to help out and thanks for the feedback.