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

[Imanfy]

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


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

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


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


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

[Imanfy]

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

[LEFT]Sub Test_Copy_From_Memory()

Sheets("Test Data").Select
   Range("A1").Select
[COLOR=#ff0000]  On Error GoTo [/COLOR][B][COLOR=#008000]Err1[/COLOR][/B]
    [B]ActiveSheet.Paste[/B]
    Columns("D:D").Select
    Selection.AutoFilter
    Range("D2").Select
    [COLOR=#0000ff]End[/COLOR]

 [B][COLOR=#008000]Err1[/COLOR]:
MsgBox "Data Not Found In Memory" & vbNewLine & "اطلاعاتي در حافظه پيدا نشد", , "Error خطا"[/B]
[COLOR=#0000ff]End[/COLOR]

End Sub
[/LEFT]

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

[a.dal65]

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

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