I am not certain that I understand you exact needs. Lets say I have just
created a set of sheets within a workbook and I want to make column headers
in a sheet called "summary".

I want to get the headers from the sheet names (person names), skipping some
columns in the process

Sub jason()
Sheets("summary").Activate
k = 1
For Each w In Sheets
nm = w.Name
If nm < "summary" Then
Cells(1, k).Value = nm
k = k + 4
End If
Next
End Sub

Try this out on a scrap workbook first.
--
Gary''s Student - gsnu200730