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