This might help

[vba]


Option Explicit
Dim InvenA As Integer
Dim InvenB As Integer
Dim InvenC As Integer
Sub Inventory()
Do
InventoryABC
lookupInvenoryinfo
Do While InvenA = InvenB
InventoryABC
lookupInvenoryinfo
Exit Do
Loop
Loop Until InvenA = InvenB
End Sub
Sub lookupInvenoryinfo()
With Sheets("LANE QUANTITY")
InvenA = .Range("bx68").Value
InvenB = .Range("bx69").Value
InvenC = .Range("bx70").Value
End With
End Sub
Sub InventoryABC()
InventoryA
InventoryB
InventoryC
lookupInvenoryinfo
If InvenA < InvenB Then
InventoryA
End If
If InvenA < InvenC Then
InventoryA
End If
lookupInvenoryinfo
If InvenB < InvenA Then
InventoryB
End If
If InvenB < InvenC Then
InventoryB
End If
lookupInvenoryinfo
If InvenC < InvenA Then
InventoryC
End If
If InvenC < InvenB Then
InventoryC
End If
End Sub
Sub InventoryA()
Sheets("Inven1").Range("A2").QueryTable.Refresh BackgroundQuery:=False
End Sub
Sub InventoryB()
Sheets("Inven2").Range("A2").QueryTable.Refresh BackgroundQuery:=False
End Sub
Sub InventoryC()
Sheets("Inven3").Range("A2").QueryTable.Refresh BackgroundQuery:=False
End Sub
[/vba]