Hello,

I am trying to get the below macro to search column H of my workbook. It
works fine but i'd need it to also search columns: J, L, N, P, R, T. All
these columns have asset numbers.

Could someone please help me modifiy my existing code so that this may
happen.

All help is greatly appreciated.

Kind regards,

Chris.




Sub AssetNoSearch()
'
'AssetNoSearch Macro
'
'
Dim Found As Range
Dim Sh As Worksheet
Dim SheetsToCheck As Variant
Dim AssetNumber As String


Application.ScreenUpdating = False

SheetsToCheck = Array("DTP Hardware")

AssetNumber = Application.InputBox("Please Enter The Asset Number You
Wish to Locate and either click on the <OK button and then hit <ENTER or
hit <ENTER twice: ", _
"Find Asset Number")

For Each Sh In Sheets(SheetsToCheck)
Set Found = Sh.Columns("H").Find(AssetNumber, _
LookIn:=xlFormulas, _
Lookat:=xlPart)
If Not Found Is Nothing Then
Found.Parent.Activate
Found.Activate
Exit For
End If
Next Sh


If Found Is Nothing Then
MsgBox "Asset Number: " & AssetNumber & " does not exist."
End If
End Sub