VBA update search find routine using userform listbox selection

Assuming that

If Intersect(Target, ActiveSheet.Columns(7)) Is Nothing Then Exit Sub

is the problem area then try removing ActiveSheet so that line becomes:

If Intersect(Target, Columns(7)) Is Nothing Then Exit Sub

Or try

If Intersect(Target, Worksheets("Replace this with your worksheet name but leave quotes").Columns(7)) Is Nothing Then Exit Sub