Цикл по листам и ячейкам

[motorway]

Вроде бы простой вопрос, но пока не пойму, как сделать:
нужно в цикле по всем листам сделать цикл по всем ячейкам из диапазона UsedRange и вывести в таком формате данные:

Лист|Колонка|Строка|Знач. ячейки и разделители между ячейками `.

[mc-black]

Sub GetUsedRanges()
    Dim wsh As Worksheet
    Dim rng As Range
    Dim s As String
    
    s = ""
    For Each wsh In ThisWorkbook.Worksheets
        For Each rng In wsh.UsedRange.Cells
            s = s & wsh.Name & "|" & rng.Column & "|" & rng.Row & "|" & rng.Value & "'"
        Next rng
    Next wsh
    s = Left(s, Len(s) - 1)
    
    Debug.Print s
End Sub