Ctrl+v via makro

ActiveCell.PasteSpecial

Det virker, men hvordan laver jeg kontrol af, at der er noget i "Ctrl+v"?

Jeg havde tænkt mig at lave en msgbox hvis der ikke står noget!

Så laver du en ErrorHandler, der tager hånd om det.

***eksempel**********
Sub IndsætFraKlippebord()
    On Error GoTo Error_Paste
    ActiveCell.PasteSpecial
   
Error_Paste_End:
    On Error GoTo 0
    'her kan du så have anden kode, hvis der er noget, der skal afvikles, selv om der er opstået en fejl tidligere i proceduren
    Exit Sub
   
Error_Paste:
    If Err.Number = 1004 Then 'ingenting i klippebordet
        MsgBox "Der er ikke noget i klippebordet, der kan indsættes.", vbCritical, "Indsæt fra klippebord"
    Else
        MsgBox "Der er opstået en uventet fejl." & vbCr & "Fejl nr.: " & Err.Number & vbCr & _
            "Fejlmeddelelse: " & Err.Description, vbInformation
    End If
    Resume Error_Paste_End
End Sub
*****eksempel slut****

Det virker - smid et svar word-hajen!

Kommer her :-)

Tak for hjælpen!

Velbekomme.