So...Save each as an external workbook...
Sub J3v16()
Dim Data, Temp, Path As String, i As Long
Path = "D:\Steven\Desktop\" 'Change to your path...
With Sheets("Raw data").Cells(1).CurrentRegion
Data = .Value
For i = 2 To UBound(Data)
Temp = Application.Index(.Value, Array(1, i), Application.Evaluate("row(1:" & .Columns.Count & ")"))
With Workbooks.Add
With .ActiveSheet
.Name = Data(i, 1)
.Range("A1").Resize(2, 7) = Application.Transpose(Temp)
.UsedRange.Columns.AutoFit
End With
.SaveAs Path & Data(i, 1), 51
.Close True
End With
Next i
End With
End Sub
Bookmarks