Hello, I'm still pretty new at this, and my vba code is a bit rushed although it works.
My question is, can I change the "If lngvar" parts to loop? Also will it work faster than "if then" statement? Thank you.

Sub GetShapeFromWeb()


    On Error Resume Next


    Dim var As String
    Dim lngvar As Long
    
    LR = Cells(Rows.Count, 1).End(xlUp).Row
    
    For x = 2 To LR
    
    var = Cells(x, 12).Value
    lngvar = Len(var)
    
    If lngvar = 7 Then
        var = "000000" & var
        ElseIf lngvar = 8 Then
        var = "00000" & var
        ElseIf lngvar = 9 Then
        var = "0000" & var
        ElseIf lngvar = 10 Then
        var = "000" & var
        ElseIf lngvar = 11 Then
        var = "00" & var
        ElseIf lngvar = 12 Then
        var = "0" & var
        Else
        var = var
    End If
      
    Call InsertShape("http//wwwwebsitecom/" & var & ".jpg", Sheet1.Range("B2").End(xlUp).Offset(x - 1, 0))
        
    Next x
    
    Call FitAllPics.FitAllPics
    
    
errormsg:
    Exit Sub
 
End Sub