Macro to search Invoices through tabs

[dinukamp]

i want to Search invoice numbers in "Collection report" tab "H" column and search in "Iogixinv" tab "E" column and highlight the available ones in "Collection report" tab "H" column.

There are few invoice numbers in the cell in "Collection report" tab "H" column which are mentioned after Semi colon (; )

since the work book has high amount of data need to make it faster.

how do i write a macro for this?

[dinukamp]

i wanted to do this with below code

go to "Collection report" tab,Column "H" and start from cell "H2"and need to copy numbers before and after ";" and search in "Iogixinv" tab, column "E". if avilable "BOLD" the same number in "Collection report" tab,Column "H" and if not available make that number ITALIC in "Collection report" tab,Column "H"

Sub FormatNumbersInCollectionReport()
Dim wsCollection As Worksheet
Dim wsLogin As Worksheet
Dim cell As Range
Dim numbers As Variant
Dim number As Variant
Dim found As Range

Set wsCollection = ThisWorkbook.Sheets("Collection report")
Set wsLogin = ThisWorkbook.Sheets("Iogixinv")

For Each cell In wsCollection.Range("H2:H" & wsCollection.Cells(wsCollection.Rows.Count, "H").End(xlUp).Row)
numbers = Split(cell.Value, ";")
For Each number In numbers
number = Trim(number)
Set found = wsLogin.Columns("E").Find(What:=number, LookIn:=xlValues, LookAt:=xlWhole)
If Not found Is Nothing Then
cell.Font.Bold = True
Else
cell.Font.Italic = True
End If
Next number
Next cell
End Sub

after the above code everything gets italic and once that available are also getting bold.. please help

[dinukamp]

anyone there to give a me a helping hand..please