find "w" instance in column and count within range then change the next "Daily" val.

[rrosa1]

thanks p45cal

Set ws = ThisWorkbook.Worksheets("pp")

i change this to

    Set ws = ThisWorkbook.Worksheets("pp")
    ws.Activate

and also i comment the msg as this

                        If Var < 6 And mylookin.Cells(i1).Value <> "w" Then
                            mylookin.Cells(i1).Select    'pd
                            ' myResponse = MsgBox("u want to change value of L" & Selection.Row & "?" & vbLf & "Cancel moves on to the next group", vbYesNoCancel, "Order Complete")
                            ' Select Case myResponse
                            ' Case vbCancel
                            '     Exit For
                            ' Case vbYes
                            mylookin.Cells(i1).Value = "w"
                            
                            Var = Var + 1
                            ' End Select
                        End If

and it's work like a charm thanks again for all yr help i still learning so sorry for dumb question. and thanks for bear up with me .