Become a Premium Member and unlock a new, free course in leading technologies each month.
Go Premium for a chance to win a PS4. Enter to Win
Public Sub FilterNumberAsText(parmSearchForPattern As String)
Dim wks As Worksheet
Dim rng As Range
Dim rngCell As Range
Set wks = ActiveSheet
For Each rngCell In wks.Range("D2", wks.Range("D2").End(xlDown))
If rngCell.Value Like parmSearchForPattern Then
If rng Is Nothing Then
Set rng = rngCell.EntireRow
Set rng = Union(rng, rngCell.EntireRow)
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!