Private Sub MachineOptionsBox_Change()
Dim priceCell As Range
Dim imprCell As Range
Dim selcItem As Long
Dim sRowN As Integer
Dim sCol As Integer
Dim ws As Worksheet
Set ws = Sheets("*Sheet Name*")
sRowN = 0
For Each priceCell In ws.Range("C1:C5000")
If priceCell.Value = "Agents View"...