Hi,
The below code does paste it as value. Can we modify it to do paste special value? Also, if format can be retained it would be great.
Code
Sub copyops()
Call CopyValues(Workbooks("WINS.xlsx").Sheets("sheet1").Range("A1:A5"), Workbooks("Team_wins.xlsx").Sheets("Team WINS").Range("B1"))
End Sub
Sub CopyValues(rngSource As Range, rngTarget As Range) rngTarget.Resize(rngSource.Rows.Count, rngSource.Columns.Count).Value = rngSource.Value
End Sub