Adding cells from different sheets to another sheet by the sheet name.

[Filipzgela]

The title is probably confusing, but the question is quite simple.
I have a bunch of sheets that have people's data in them. Now i would like to make a new "Master" sheet where in the first row i would have names of the people (which would be equal to sheets names). In the first column i would have some data that will be used in the code so i can add data from the sheets with some conditions. I saw this thread:

If a sheet name equals a cell name?

Hello everyone Suppose if I have a list of countries in column A in a "master" sheet, and all the other sheets are named after each country with more details contained within each sheet. I want to create a macro which will iterate through my list of countries, refer to the sheet of that...

www.mrexcel.com

but i cannot make this work if the "country names" from the thread are in row 1 instead of column A
Thank you in advance

 

[Filipzgela]

I found a solution:

Sub Filipzgela()
   Dim Cl As Range
   Dim Ws As Worksheet
  
   Set Ws = Worksheets("Master")
   For Each Cl In Ws.Range("A1", Ws.Cells(1, Columns.Count).End(xlToLeft))
      If Evaluate("isref('" & Cl.Value & "'!A1)") Then
         With Worksheets(Cl.Value)
          ...functions you need
         End With
      End If
   Next Cl
End Sub

Someone answered that question, but deleted the comment so i am reposting it