Searching for a code to add that copy's value only.

[geno32080]

I'm searching for a code to add to this that would paste the values only. Just data. dates, names client id's etc.
Below is the code that is working, except I need it t paste values only. It over writes the background color and the cells borders of the ("jax") Worksheet.
Any ideas?
Thanks for taking the time.

Set sourceworkbook = Workbooks.Open("D:\JEN FOLDER\IMPORT\Jacksonville.csv")
sourceworkbook.Sheets("Jacksonville").Range("A3:S98").Copy ThisWorkbook.Worksheets("jax").Range("B9:T98")
sourceworkbook.Close

 

[mumps]

Try:

Set sourceworkbook = Workbooks.Open("D:\JEN FOLDER\IMPORT\Jacksonville.csv")
sourceworkbook.Sheets("Jacksonville").Range("A3:S98").Copy
ThisWorkbook.Worksheets("jax").Range("B9:T98").PasteSpecial xlPasteValues
sourceworkbook.Close

 

[geno32080]

Try:

Set sourceworkbook = Workbooks.Open("D:\JEN FOLDER\IMPORT\Jacksonville.csv")
sourceworkbook.Sheets("Jacksonville").Range("A3:S98").Copy
ThisWorkbook.Worksheets("jax").Range("B9:T98").PasteSpecial xlPasteValues
sourceworkbook.Close

When I run that code it brings up a box stating "There is a large amount of information on the clipboard," and so on..
I can click no not to save it, and it does copy just the values. The code I'm using has 7 other cities that go with it.
Any other ideas?

 

[mumps]

Is the data for each city in its own separate file? If so, are the 7 files all in the same folder? Are they the only files in that folder?

 

[geno32080]

Is the data for each city in its own separate file? If so, are the 7 files all in the same folder? Are they the only files in that folder?

Yes all the files are in the same folder, and the only ones. I found a cure, With the help of JohnnyL. Below is the fix, the 4th line of code took care of it.
Thank you for your contribution.


Set sourceworkbook = Workbooks.Open("D:\JEN FOLDER\IMPORT\Jacksonville.csv")
sourceworkbook.Sheets("Jacksonville").Range("A3:S98").Copy
ThisWorkbook.Worksheets("jax").Range("B9").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
sourceworkbook.Close

 

[mumps]

You are very welcome.