Sub setsheetname()

With Cells(1, WorksheetFunction.Max(Cells(1,
Columns.Count).End(xlToLeft).Column + 1, 15))
.Value = ActiveSheet.Name
End With

End Sub


go to the rightmost column, then get the END/LEFT column number and add 1,
use 15 or this if its larger




"oldjay" wrote in message
...
I want to copy the sheet name to row 1 of the first blank column after col
15

Oldjay