For each statement and Error 424

[haneefach]

While running the below code, I am getting "Run time error 424 - Object required" on line no (6). Please help me to sort out. Thanks

1) Sub test ()
2) Dim ws as Worksheet, Sr as Range, c as Range
3) Set ws = Activesheet
4) With ws
5) Set Sr = Range(.cells(2,2), .cells(10,2))
6) For Each c In Sr
7) If c.Value = "a" then c.offset (0,1).value = "b"
8) Next
9) End with
10) End Sub

 

[Jonmo1]

Welcome to the board.

It works for me.

The only possible issue I see is this line
Set Sr = Range(.cells(2,2), .cells(10,2))
should probably be
Set Sr = .Range(.cells(2,2), .cells(10,2))

 

[haneefach]

Thank you Jonmo1
I was struggling for one whole day to solve this

 

[Jonmo1]

You're welcome.