Macro to Select Cells containing Text

[seenai]

Hi,

I have a Range that contains Text like below :

Date

Time

Sr No

Associate

I need a macro to select CELLS that match the any of the words.
Else need to select Cell A1.

Request your help to create a macro.

 

[mohadin]

Hi
As I Understand
your data in column A then try

Sub test()
    Dim rg As Range
    Dim a As Variant
    Dim i, ii
    a = Array("Date", "Time", "Sr No", "Associate")
    For i = 1 To 10000
        For ii = 0 To UBound(a)
            If Cells(i, 1) = a(ii) Then
                If rg Is Nothing Then
                    Set rg = Cells(i, 1)
                Else
                    Set rg = Union(rg, Cells(i, 1))
                End If: End If
        Next: Next
    rg.Select
End Sub

 

[seenai]

Hi, Thanks for Quick reply.

I am getting error as below :

My Data is as below. Highlighted in Black are part of range.

 

[mohadin]

In this case

Sub test()
    Dim rg As Range
    Dim a As Variant
    Dim i, ii
    a = Array("Date", "Time", "Sr No", "Associate")
    For i = 1 To 100
        For ii = 0 To UBound(a)
            If Cells(1, i) = a(ii) Then
                If rg Is Nothing Then
                    Set rg = Cells(1, i)
                Else
                    Set rg = Union(rg, Cells(1, i))
                End If: End If
        Next: Next
    rg.Select
End Sub

 

[seenai]

In this case

Sub test()
    Dim rg As Range
    Dim a As Variant
    Dim i, ii
    a = Array("Date", "Time", "Sr No", "Associate")
    For i = 1 To 100
        For ii = 0 To UBound(a)
            If Cells(1, i) = a(ii) Then
                If rg Is Nothing Then
                    Set rg = Cells(1, i)
                Else
                    Set rg = Union(rg, Cells(1, i))
                End If: End If
        Next: Next
    rg.Select
End Sub

Getting same error :

 

[mohadin]

What is the error you get?
It's working fine for excel 2013

 

[seenai]

What is the error you get?
It's working fine for excel 2013

I am using Office 365.

 

[mohadin]

I see
You have to edit the array in the code

  a = Array("Date", "Time", "Sr No", "Associate")

Case sensitive
And just in case replace with this line of code

 If Trim(Cells(1, i)) = a(ii) Then

 

[seenai]

Sub test()
Dim rg As Range
Dim a As Variant
Dim i, ii
a = Array("Date", "Time", "Sr No", "Associate")
For i = 1 To 100
For ii = 0 To UBound(a)
If Trim(Cells(1, i)) = a(ii) Then
If rg Is Nothing Then
Set rg = Cells(1, i)
Else
Set rg = Union(rg, Cells(1, i))
End If: End If
Next: Next
rg.Select
End Sub

I see
You have to edit the array in the code

  a = Array("Date", "Time", "Sr No", "Associate")

Case sensitive
And just in case replace with this line of code

 If Trim(Cells(1, i)) = a(ii) Then

 

[mohadin]

Ok
what is the name of you sheet