Posts by Ivan F Moala

    OR you can create the listbox and then load files in;'


    change Dir to suit


    Assuming inserted ActiveX control is named ShockwaveFlash1 then


    Me.ShockwaveFlash1.Movie = "full path name to swf file"


    The code is incomplete
    You are missing a number of Constants and API Function calls


    eg


    Private Declare Function FtpPutFile Lib "wininet.dll" _
    Alias "FtpPutFileA" ( _
    ByVal hConnect As Long, _
    ByVal lpszLocalFile As String, _
    ByVal lpszNewRemoteFile As String, _
    ByVal dwFlags As Long, _
    ByVal dwContext As Long) As Boolean

    If you must use the Dialogs and you don't want to use bnix's code then look @


    xlDialogMailEditMailer to_recipients, cc_recipients, bcc_recipients, subject, enclosures, which_address

    Before even checking your references
    Take btadams advice and check your Addins.
    It is more then likely you have a rogue addin loading up that is giveing you the reference Error.


    Select > Tools > Addins
    Look for any selected Addins = Tick mark


    easiest is to deselect ALL


    Close App, then Reopen and see what happens....if you get the same THEN


    You may have it in your Personal workbook....