How to get all sheets names and its specific cell value using macro/vba?

Question

I already have a code for getting all sheets names into a cell, but I also want to get the value of specific cell in every sheets.

See the example