Ok, i tried your find suggestion and the message box output "$A$2" which is right but then it seems to get caught in an infinite loop among this code:

Do Until iRowCount = LastRow
                        If Selection.Value <> varOperNo Then        'looks for oper no saved form before
                            Selection.Offset(1, 0).Activate
                        End If
                        iRowCount = iRowCount + 1
                    Loop
also the line you highlighted in red was a typo and it actually should have read (0,6) not (6,0) so i fixed that.