نمایش پیام خطای دلخواه به جای پیامهای رایج اکسل

[Imanfy]

با سلام خدمت کلیه اساتید
میخوام در صورتی که برنامه به خطایی برخورد به جای پیامهای رایج اکسل پیام من رو نشون بده
مثلا در صورتی که ActiveSheet.Paste دارای خطا بود به جای نمایش


"Run-Time error '1004'
Paste method of worksheet class failed"

که به صورت رایج نمایش داده میشه، پیام


"خطایی در اطلاعات موجود به وجود آمده است"
یا
"اطلاعاتی در حافظه برای کپی وجود ندارد"


نمایش داده شود.
با تشکر

[Imanfy]

صرفا جهت اطلاع دوستان
با استفاده از روش آزمون و خطا و با دستورات زیر مشکلم رو حل کردم




Sub Test_Copy_From_Memory()

Sheets("Test Data").Select
Range("A1").Select
On Error GoTo Err1
ActiveSheet.Paste
Columns("D:D").Select
Selection.AutoFilter
Range("D2").Select
End

Err1:
MsgBox "Data Not Found In Memory" & vbNewLine & "اطلاعاتي در حافظه پيدا نشد", , "Error خطا"
End

End Sub


از اساتید محترم تقاضا دارم در صورتی که راه حل های ساده تر و اصولی تری وجود داره اعلام کنند.
ممنونم

[a.dal65]

اگه این چند خط رو هم اضافه کنی توضیحاتی در مورد خطات میده که مثلا تو خط چندم این خطا اتفاق اقتاده و...


MsgBox "An Error has Occurred " & vbCrLf & "The error number is: " _
& Err.Number & vbCrLf & Err.Description & vbCrLf & _
"Îerrorrrrrrrrrrrrrr!!!!"