VBA Copy & Paste as plain text [Shared Workbook]

[Martin_H]

Hi,

I have been using this macro which is copying everything (formulas, formatting etc.):

Sub Macro_1()
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name = "ß_PCF_1" Then
            ws.Range("B3:M100").Copy Sheets("ß_PCF").Cells(Rows.Count, "b").End(xlUp).Offset(1)
        End If
    Next ws
End Sub

I would like to edit that macro to copy as a plain text only (without formulas or formatting).

It has to work in Shared Workbook.


Help is much appreciated.

 

[Marc L]

Hi,​

​

just with a single codeline : If [ISREF(ß_PCF_1!A1)] Then Sheets("ß_PCF").Cells(Rows.Count, 2).End(xlUp)(2).Resize(98, 12) = [ß_PCF_1!B3:M100]​