vba help - find "-" using intersect

[Mallesh23]

Hi Team,

I want to find string "-" charecter in specific Amounts columns. if found Macro should exit.

Below is sample code , which help in finding blank, Similar fashion how to find String charecter "-"

Sub t()
Dim rng As Range
Set rng = Union(Columns(1), Columns(3), Columns(5), Columns(6), Columns(9), Columns(10), Columns(14), Columns(16))
Application.DisplayAlerts = False
On Error GoTo Skip:
    If Intersect(ActiveSheet.UsedRange, rng).SpecialCells(xlCellTypeBlanks).Count > 0 Then
        Beep
       MsgBox "Blanks"
    End If
Skip:
Err.Clear
Application.DisplayAlerts = True
End Sub

Thanks
mg

 

[Akuini]

Try:

Sub a1159239a()

Dim rng As Range, c As Range
Set rng = Union(Columns(1), Columns(3), Columns(5), Columns(6), Columns(9), Columns(10), Columns(14), Columns(16))
Set c = rng.Find(What:="-", LookIn:=xlValues, lookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    
    If Not c Is Nothing Then
       Beep
       MsgBox "-"
       Exit Sub
    End If

End Sub

 

[Mallesh23]

Hi Akuini,

Perfect ! This is awesome, millions of thanks for your help, ?



Thanks
mg

 

[Akuini]

You're welcome, glad to help & thanks for the feedback.