I want to transpose a column list of names to every other cell in a row on another sheet and then "center across selection" each name with the cell it is in plus the cell to the right.

The list on sheet 1 will vary from 4 to 10, 20 names.

So on sheet 3 cells D4 and E4 would have a name centered on them, cells F4 and G4 would have the next name centered on them and so on for all the names in the row.

The previous transposed & centered names need to be cleared and the new transposed set of names overwritten to cell D4 each time the code is run.

This code puts the names in the correct spot on sheet 3, but all in a continuous row.

Thanks,
Howard

Sub Name_Hours_OPNumber()

Dim nhoRng As Range

Set nhoRng = Sheets("Sheet1").Range("D7:D" & Cells(Rows.Count, "D").End(xlUp).Row)
nhoRng.Copy
Sheets("Sheet3").Range("D4").PasteSpecial Paste:=xlPasteAll, Transpose:=True

End Sub