is there a way in the paste options to stop this message, (in vba i don't want to paste it elsewhere)
Code: Select all
FoundLine = 16
Backend = 999
With wbkSource.Sheets("Daily")
.Range("C" & FoundLine & ":" & "J" & Backend).Copy
End With
With ThisWorkbook.ActiveSheet
.Range("AP15").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
steve