Excellent, just tested your code. It works well and gives the same
results as setting a string of columns, so would overcome the problem I
had. Thanks for your help.

For Each ws in sceWB.Worksheets
Set myRange = Nothing
For n = 1 To sceWB.Names.Count
If ws.Name = sceWB.Names(n).RefersToRange.Worksheet.Name Then
If myRange Is Nothing Then
Set myRange = sceWB.Names(n).RefersToRange.Offset(0, -4)
Else
Set myRange = Union(myRange,
sceWB.Names(n).RefersToRange.Offset(0, -4)
End If
End If
Next

If Not (myRange Is Nothing) Then
With myRange
Set result = .Find(OrderNum, LookIn:=xlValues)
'continue processing search result