Dim TargetList, i As Long TargetList = InputBox("Put list of terms to find here, separated by commas") For i = 0 To UBound(Split(TargetList, ",")) MsgBox Split(TargetList, ",")(i) Next