Must be easy!

[SAllen]

I am trying to create a macro that will take number values from the same cell reference on all worksheets (G13 and G32) in the workbook and place them in another workbook so the values can be more easily accessed (Maybe a column for each value. The sheets are labeled as dates. Can anyone help?

 

[Mudface]

This might do for you, it'll take the values in your workbook, add a new workbook and put the values across the first row.

Public Sub CopyCells()
Dim ws As Worksheet
Dim CellstoCopy() As Variant
Dim x As Integer

For Each ws In ThisWorkbook.Worksheets
    ReDim Preserve CellstoCopy(x + 1)
    CellstoCopy(x) = ws.[g13]
    CellstoCopy(x + 1) = ws.[g32]
    x = x + 2
Next ws

Workbooks.Add
Range(Cells(1, 1), Cells(1, x)) = CellstoCopy
    
End Sub