Fordraiders
asked on
enhance code to only include text and not carry over formatting
is there a way to enhance the code below to only copy over "text"...and not formatting.
Thanks
fordraiders
Sub CopyData(colFrom As String, colTo As String)
ThisWorkbook.Activate
ws.Range(colFrom & "6:" & colFrom & rwMax).Copy
wb.Activate
Range(colTo & 3).Select
ActiveSheet.Paste
End Sub
Thanks
fordraiders
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Martin:
runtime error 1004
PasteSpecial method of Worksheet class failed.
runtime error 1004
PasteSpecial method of Worksheet class failed.
ASKER
Saurabh,
Range(colTo & 3).PasteSpecial xlPasteValues
worked fine...
Thanks !
Range(colTo & 3).PasteSpecial xlPasteValues
worked fine...
Thanks !
fordraiders..Always Happy to help.. :-)
Saurabh...
Saurabh...
ASKER
Thanks
ActiveSheet.PasteSpecial xlPasteValues