No puedo mostrar el Proveedor en este programa me da error

Acá les anexo el código a ver si me pueden ayudar por favor, he estado revisando y no doy con el error porque me muestra las demás variables y PROVEEDOR no,

If LISTA = "" Then UNIDAD = "": CANTIDAD.Locked = True: STOCKFINAL = "": CÓDIGO = "": PROVEEDOR = "": STOCK = "": LOGO.Picture = LoadPicture(""): INGRESOTOTAL = "": SALIDATOTAL = "": PERSONAL = "": TRABAJO = "": INGRESO = False: SALIDA = False: DEVUELVE = False: CANTIDAD = "": DATOS.Enabled = False: Exit Sub
Sheets("LISTADO").Select
Range("B4").Select
ActiveCell.Offset(1, 0).Select
While ActiveCell <> LISTA
If ActiveCell = "" Then LISTA = "": Exit Sub
ActiveCell.Offset(1, 0).Select
Wend
On Error GoTo SINFOTO
LOGO.Picture = Nothing
If LISTA = "" Then LOGO.Picture = LoadPicture(""): CÓDIGO = "": Exit Sub
If Len(LISTA) < Len("00") Then LISTA = "": Exit Sub
If LISTA <> "" Then DATOS.Enabled = True
Ruta = ActiveWorkbook.Path
LOGO.Visible = True
LOGO.Picture = LoadPicture(Ruta & "\" & LISTA & ".jpg")
Fila = Application.WorksheetFunction.Match(LISTA, Range("Material"), 0)
CÓDIGO = Application.WorksheetFunction.Index(Range("Código"), Fila)
INGRESOTOTAL = Application.WorksheetFunction.VLookup(LISTA, Range("LISTADO"), 3, 0)
SALIDATOTAL = Application.WorksheetFunction.VLookup(LISTA, Range("LISTADO"), 4, 0)
STOCK = Application.WorksheetFunction.VLookup(LISTA, Range("LISTADO"), 5, 0)
UNIDAD = Application.WorksheetFunction.VLookup(LISTA, Range("LISTADO"), 2, 0)
PROVEEDOR = Application.WorksheetFuntion.VLookup(LISTA, Range("LISTADO"), 6, 0)
Exit Sub
SINFOTO:
Fila = Application.WorksheetFunction.Match(LISTA, Range("Material"), 0)
CÓDIGO = Application.WorksheetFunction.Index(Range("Código"), Fila)
INGRESOTOTAL = Application.WorksheetFunction.VLookup(LISTA, Range("LISTADO"), 3, 0)
SALIDATOTAL = Application.WorksheetFunction.VLookup(LISTA, Range("LISTADO"), 4, 0)
STOCK = Application.WorksheetFunction.VLookup(LISTA, Range("LISTADO"), 5, 0)
UNIDAD = Application.WorksheetFunction.VLookup(LISTA, Range("LISTADO"), 2, 0)
PROVEEDOR = Application.WorksheetFuntion.VLookup(LISTA, Range("LISTADO"), 6, 0)
End Sub