[Tasos]

Καλησπέρα Νίκο!
Δες το συνημμένο εδώ: http://www.ms-office.gr/forum/excel-...ssage-box.html

Μπορείς να αντιγράψεις το μοναδικό του φύλλο στο δικό σου βιβλίο με πατημα κουμπιού
και να περάσεις τον παρακάτω κώδικα σε μια λειτουργική μονάδα του βιβλίου σου:

Option Explicit

 Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
                                    (ByVal lpClassName As String, _
                                     ByVal lpWindowName As String) As Long

 Declare Function UnicodeMsgBox _
                          Lib "user32" Alias "MessageBoxW" _
                              (Optional ByVal hWnd As Long, _
                               Optional ByVal Prompt As Long, _
                               Optional ByVal Title As String, _
                               Optional ByVal Buttons As Long) _
                               As Long
Public Const MB_TASKMODAL As Long = &H2000&

Function Msgbox_Gr(HW As Long, strPrompt As String, strTitle As String, lngFlags As Long) As Long
    If Trim(strTitle) = vbNullString Then strTitle = ThisWorkbook.Name
    Msgbox_Gr = UnicodeMsgBox(HW, _
                              StrPtr(strPrompt), _
                              StrConv(strTitle, vbUnicode), _
                              lngFlags)
End Function

'----------------------------------------------------------------------------------------------------
'For normal use in a procedure
'----------------------------------------------------------------------------------------------------
Sub Call_Msgbox_Gr_from_a_Procedure()
'Your code...........

'     Step 1 : From the work sheet, select the message you wish and klick the button "Copy code"
'     Step 2 : Paste the copied code here

'Your code...........

End Sub
'----------------------------------------------------------------------------------------------------

Ο κώδικας αυτός περιέχεται και στο συνημμένο στη λειτουργική μονάδα "ModuleToTransfer".

Ελπίζω να σ εξυπηρετεί.

Φιλικά

Τάσος