Copying without using clipboard

[MrPez]

I'm trying to copy some data (values only) from one sheet to another. The source is data imported from an ascii file.

I'm not really sure why the code isn't working! Can anyone assist?

With ThisBk.Sheets("RawInput")
    .UsedRange.Offset(1, 0).ClearContents
    .Range("A2").Resize(TmpRows, TmpCols).Value = TmpBk.TmpSht.UsedRange.Value
End With

In the code ThisBk is the destination book and TmpBk and TmpSht are the source workbook and worksheets.

Thanks

 

[Fluff]

Try removing the part in red

 = [COLOR=#ff0000]TmpBk.[/COLOR]TmpSht.UsedRange.Value