List of Tab names + 3 specific cell from each sheet

Hi all,

As usual had a reasonably thorough Google and cannot find an answer so I hope you don't mind me asking another question.

I'm trying to make a list of all the tab names in a spreadsheet, that's easy enough, but I would also like to copy the data into the adjacent cells of 3 specific cells E2, E3 & S37 from each sheet.

Below is the macro I currently use to list the sheet names.

Sub ListSheetNames()
    Dim R As Range
    Dim WS As Worksheet
    Set R = ActiveCell
    For Each WS In ThisWorkbook.Worksheets
        R.Value = WS.Name
        Set R = R(2, 1)
    Next WS
End Sub

As always any advise greatly appreciated and thanks for looking.