Is there a way to write this so it will search the
whole workbook at less 10 worksheets

Sub aaa()
'
WhatToFind = ActiveCell.Value
Cells.Find(What:=WhatToFind, After:=ActiveCell,
LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns,
SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub

I want to Thank You
Esau