InStr problem

[Alexandro88]

If [COLOR="Red"]Myday = InStr(1, Left(rngcell.Value, 5), "Sun" Or "Sat" Or "Mon" Or "Tue" Or "Wed" Or "Thu" Or "Fri")[/COLOR] Then
         If InStr(1, Left(rngcell.Value, 3), "LRR") Then
            Cells.Value = lr_Total
         ElseIf InStr(1, Left(rngcell.Value, 3), "OP3") Then
            Cells.Value = zResult_Total_NSOP
         ElseIf InStr(1, Left(rngcell.Value, 3), "OP4") Then
            Cells.Value = vResult_Total_NSOP
         ElseIf InStr(1, Left(rngcell.Value, 3), "OL3") Then
            Cells.Value = vResult_Total_NSOL
         ElseIf InStr(1, Left(rngcell.Value, 3), "OL4") Then
            Cells.Value = zResult_Total_NSOL
         End If
    End If

I get erro for the red line. Can anyone help me and provide solution to me?

 

[Andrew Poulsom]

Why do you need to look in such a large range?

 

[Alexandro88]

means:
Mayday= Monday

Then , i need to loop through every column to find the word that match
example:
Monday = mon in that column.

 

[Andrew Poulsom]

Yes, but aren't your headings in a single row in columns A:DI? If not you can use the Find method to locate the cell.

 

[Alexandro88]

But, i think that is not main issue
Yup, mean i only wnt to search 1 column that equal Mayday.

 

[Andrew Poulsom]

Do you mean column 1 or row 1?

 

[Alexandro88]

Why i want choose loop through the large range?
Because i dont want fixed it at 1 position..

 

[Andrew Poulsom]

I'm having trouble understanding your layout and what you want to do.

 

[Alexandro88]

Example :
Column A : Mon
Column B: Tue
Column C: Wed
Column D : Thur
Column E : Fri
Column F : Sat
Column G : Sun

Then, Mayday = Monday.
So, i want loop through the column and findwhich 1 match with monday and input the data in that that column row

 

[Andrew Poulsom]

Adapting what I posted earlier:

Sub Test()
    Dim Rng As Range
    Dim Myday As String
    Dim Col As Long
    Set Rng = Range("A1:G1")
    Myday = Format(Cells(1, 17).Value, "ddd")
    Col = WorksheetFunction.Match(Myday, Rng, False)
    MsgBox Col
End Sub