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


    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....