Hi I copied the following code from a post on this site which works beautifully. I now need to rename each new tab to cell B2 of that new worksheet. If anyone can help I'd really appreciate it. Thanks Sally 

Sub copycols()
Dim LC As Long, i As Long, ws As Worksheet
With ActiveSheet
LC = .Cells(1, Columns.Count).End(xlToLeft).Column
For i = 2 To LC
Set ws = Sheets.Add(after:=Sheets(Sheets.Count))
.Columns(1).Copy Destination:=ws.Range("A1")
.Columns(i).Copy Destination:=ws.Range("B1")
Next i
End With
End Sub


Sub copycols()
Dim LC As Long, i As Long, ws As Worksheet
With ActiveSheet
LC = .Cells(1, Columns.Count).End(xlToLeft).Column
For i = 2 To LC
Set ws = Sheets.Add(after:=Sheets(Sheets.Count))
.Columns(1).Copy Destination:=ws.Range("A1")
.Columns(i).Copy Destination:=ws.Range("B1")
Next i
End With
End Sub