[vba]

Private Sub CommandButton1_Click()
Dim msg As String
Dim sh

For Each sh In Worksheets(Array("Sheet1", "Sheet2"))

msg = "Item no. "
With sh

For Each cell In .Range("nw_invoice_item_name").Columns(1).Cells

If cell.Value Like "*IP*" Then

msg = msg & .Cells(cell.Row, .Range("nw_invoice_item_index").Column).Value & ", "
End If
Next cell
msg = msg & " Plating for " & .Range("nw_customer_name").Cells(1, 1).Value & _
" Inv.# " & .Range("nw_invoice_no").Cells(1, 1).Value
.Range("I48").Value = msg
End With
Next sh
End Sub
[/vba]