如何计算For Each Next中的列

Question

我正在使用For Each循环来检查范围中的每个单元格的值。如果该值存在，我需要能够识别该单元所在的列，然后根据该位置将值设置为变量以识别接收的产品模型。

我试图使用columns.count，但似乎VBA实际上并没有在For Each循环中将该单元视为活动状态。

For Each ModelCell In Models 'Checks each cell for partial order             
  If ModelCell.Value > "0" Then
    CurrentCount = ModelCell.Value
    TotalReceived = InputBox("How many were received?") 'asks how many were received
    UpdatedCount = CurrentCount - TotalReceived
    If UpdatedCount > "0" Then
      PartialOrder = True
      ModelCell.Value = UpdatedCount
      Range(Cells(RowNumber, 1), Cells(RowNumber, 22)).Interior.Color = rgbAquamarine 
      'Checks all cells and turns green
    End If                                               
  End If