So here is my problem section of code (I have added the msgbox as a test line) It is within a much larger with statement for the worksheet.
For Each part In Range("Level").Cells
If "0" < 1 Then MsgBox part.Value & " " & .Cells(part.Row + 1, part.Column).Value
If part.value <...