For each cell Operation Fail

[jamec100x]

In a workbook I have 2 sheets, let's just call them S1 and S2.
There is a set range of cells, "A14:Z38" on S1 that are either empty or contain column letters (a, b, c, etc).
I'd like to write a code that loops through each cell in that range on S1 and if that cell is not empty, finds the
value in S2 of the first cell of the referenced column. I'm getting an undefined object error.

Here's my code:
dim cll as range
For Each cll In ActiveWorkbooks.Sheets("S1").Range("A14:Z38").Cells
If IsEmpty(cll.Value) = False Then
cll.Value = ActiveWorkbooks.Sheets("S2").Range(cll.Value & 1)
End If
Next cll

 

[kokano90]

dim cll as range
For Each cll In Sheets("S1").Range("A14:Z38")
If IsEmpty(cll.Value) = False Then
 code input here....
End If
Next cll

 

[Fluff]

Hi & welcome to MrExcel.
It should be ActiveWorkbook, singular not plural.

 

[jamec100x]

dim cll as range
For Each cll In Sheets("S1").Range("A14:Z38")
If IsEmpty(cll.Value) = False Then
 code input here....
End If
Next cll

I'm still getting the "Run-time error '424': Object Required" error with that code.
This is a part of a larger code that has multiple workbooks open. Is it possible that Excel isn't finding sheet S1?
That is why I put ActiveWorkbook in my code because I had just copied a sheet into the same workbook as S1 & S2 so I thought it should be the active workbook.

 

[jamec100x]

Hi & welcome to MrExcel.
It should be ActiveWorkbook, singular not plural.

Taking on .cells and also making that singular did the trick! Thanks

 

[Fluff]

Glad we could help & thanks for the feedback.