Debug.Print Error

[Faridwahidi]

Hi,

Can anyone help me?

I just want to print value in each worksheets but got error.

Sub xy()
    
    For Each ws In ActiveWorkbook.Worksheets
    Debug.Print ws.Name & " " & ws.Name.Range("AR601").Value
    Next ws

End Sub

[HaHoBe]

Hi, Faridwahidi,

ws is set for the worksheet and Name is part of ws so omitt the name part:

Sub xy()
    
    For Each ws In ActiveWorkbook.Worksheets
    Debug.Print ws.Name & " " & ws.Range("AR601").Value
    Next ws

End Sub

Ciao,
Holger

[Faridwahidi]

Hi Ciao,

Thanks a lot.