Free for PREMIUM members
Set myRange = ActiveSheet.UsedRange
Application.FindFormat.NumberFormat = "0.00%"
Set Result = myRange.Find(what:="", searchformat:=True)
If Not Result Is Nothing Then
strFirstAddress = Result.Address
lCount = lCount + 1
Set Result = myRange.Find(what:="", after:=Result, searchformat:=True)
Loop While Not Result Is Nothing And Result.Address <> strFirstAddress
MsgBox lCount & " Found", vbInformation
MsgBox "None Found", vbExclamation
Open in new window
Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
If you are experiencing a similar issue, please ask a related question
Join the community of 500,000 technology professionals and ask your questions.
Join & Ask a Question
Join our community for more solutions or to ask questions.
For immediate help use Live now!