If ActiveSheet.Range("O1").Offset(0,1) = "" Then
ActiveSheet.Range("P1") = ActiveSheet.Name
Esle
ActiveSheet.Range("O1").End(xlToRight).Offset(0, 1) = ActiveSheet.Name
End If



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

Oldjay