Visual Basic VBA - Verificar área de transferência antes de colar

[jun1orp1m3n7a]

Boa Tarde.

 

Acho que estou no lugar certo. Não achei área específica de VBA.

 

Tenho o seguinte código:
    

 Sheets("COLAR_PLATAFORMA").Select
        Range("B2").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    

Os dados que serão colados são copiados de uma pagina de internet. Texto.

 

Preciso que, antes de colar, o VBA verifique se há dados na Área de Transferência. Caso a mesma esteja vazia, ou com algum tipo de dado incompatível, retorne msg de erro solicitando ao usuário que copie os dados da fonte.

 

Conseguem me ajudar, por favor?

 

Obrigado.

[Basole]

Veja se atende: 

 

Dim mDataObj As Object
Dim strCopy As String

Set mDataObj = VBA.CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    mDataObj.GetFromClipboard
    If mDataObj.GetFormat(1) = True Then
        strCopy = mDataObj.GetText
            mDataObj.SetText strCopy
               mDataObj.PutInClipboard
             Sheets("COLAR_PLATAFORMA").Select
            Range("B2").Select
          ActiveSheet.Paste
    Else
       MsgBox "erro solicitando ao usuário que copie os dados da fonte", _
                                                     vbCritical, "Aviso!!"
    End If
    Set mDataObj = Nothing