Public Function MySearch(numValue As Integer) For Each n In Range("Formulae!B75:B83") If n = numValue Then MySearch = True Return End If Next End Function