Insert Picture In Cell By Matching Employee ID

Hi,

I have a Folder that has a few .JPG Images, and each JPG imgae has the Employee ID as name (For Example 12.jpg)

On my worksheet On Cell A1, I will input the employee ID, and I want the Image to be inserted in that cell and Also autofit to match the Cell.

Any idea how that can be done?

Have a look this video of Mr.Excel & Mr.Mike
https://www.youtube.com/watch?v=MzF_5DXhqbs

I cant open YouTube here at Work.

But I think I know which Video that is.. Its the 1 where you manually paste all the Pictures in a Cell and use them as Named Ranges right? That isn't the solution for my problem then..

If anyone needs help with the same issue -

Sub InsertPics()
        
    On Error Resume Next
        
    Dim Cell As Range, EmpID As String
    Const Path As String = "E:\Deep Dave\Excel Sheets\Survey\Photographs\"
    
    Application.ScreenUpdating = False
    
    For Each Cell In Range("Rng")
    
        If Len(Cell.Value) = 4 Then
            Cell.Select
            EmpID = Cell.Value + 0
            ActiveSheet.Pictures.Insert(Path & EmpID & ".jpg").Select
            With Selection
                .Placement = xlMoveAndSize
                .ShapeRange.LockAspectRatio = msoFalse
                .ShapeRange.Height = ActiveCell.Height
                .ShapeRange.Width = ActiveCell.Width
                .ShapeRange.Name = Cell.Value
            End With
        End If
        
    Next Cell

    Application.ScreenUpdating = True
    
End Sub