How To Loop Through Each Worksheet And Copy Value To Paste In New Worksheet

I need to loop through worksheets in a workbook and copy every first cell value(A1) and then paste into a new worksheet.

I have tried various loops. some have copied first value for the first sheet and then pasted in the new sheet. while others have been not so good.

This is the code I have so far and this does not work at all.

Code:
Sub Check()
Dim ws As Worksheet
Dim lr As Long
Dim treg As Worksheet

[Code]......