Excel VBA Cannot return from function

Question

Here is my code:

Function GetAttachmentById(Id As String) As Attachment
    Dim newAttachment As Attachment
    
    Set newAttachment = New Attachment
    
    Dim Directory As String
    
    Directory = "C:\Users\user\Desktop\VBA"
    
    Dim fso, newFile, folder, Files
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    Set folder = fso.GetFolder(Directory)
    Set Files = folder.Files
    
    For Each file In Files
    
        If InStr(file.Name, Id) > 0 Then
            newAttachment.Id = Id
            newAttachment.AttachmentName = file.Name
            newAttachment.AttachmentPath = file.Path
        End If
        
    Next file
    
    GetAttachmentById = newAttachment

On the last line where I try to return my Attachment object I get the error:

Object variable or With block variable not set

As I can see in the debugger, the newAttachment is created well and I have no "with" block so I am not sure where to go next.

Kostas K. · Accepted Answer · 2022-06-20 12:43:51Z

4

You are missing the Set statement in your last line of code.

Set GetAttachmentById = newAttachment

edited Jun 20, 2022 at 12:43

Kostas K.

8,5282 gold badges26 silver badges31 bronze badges

answered Jun 20, 2022 at 12:37

rohrl77

3,34712 gold badges51 silver badges79 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Excel VBA Cannot return from function

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related