Snasui Excel Forum

Code: Select all

Sub p()
    Range("A1").Select
    Windows("Book1.xlsm").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Code: Select all

Range("A1").Select
Windows("Book1.xlsm").Activate
If Application.CutCopyMode Then
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Else
    MsgBox "Please copy first.", vbExclamation
End If