Access - me sale error 438

Sub inventario()
Application.ScreenUpdating = False
venta = Cells(7, 7).Value
producto = appliction.WorksheetFunction.Match(Cells(3, 3).Worksheet("Datos").Range("b:b"), 0)
Sheets("Datos").Select
almacen = Cells(producto, 4)
Cells(producto, 4).Value = almacen - venta
Sheets("Ventas").Select
Application.ScreenUpdating = True
End Sub