VBA Copy each columns to new sheet and rename based on column value

[digbicks1234]

Hi All,

I am a total VBA noob and I have the following code I found below and this would be what I'm trying to accomplish:

1. Export all individual columns (Column B and active columns) with data into new sheets
2. Keep the titles in Column A of the primary worksheet in each new sheet
3. Rename the sheets based on Columns B4, C4, D5 etc. which contain each employees email address
4. Last step: Send an individual email with each users slice of data from each sheet in PDF format based on the email name

Sub t2()
Dim lc As Long, sh As Worksheet, newSh
Set sh = ActiveSheet
With sh
lc = .Cells.Find("*", , xlValues, xlPart, xlByColumns, xlPrevious).Column
For i = 2 To lc
If Application.CountA(.Columns(i)) > 0 Then
Set newSh = Sheets.Add
Intersect(.UsedRange, .Columns(i)).Copy newSh.Range("A1")
End If
Next
End With
ThisWorkbook.Save
End Sub

Any assistance is greatly appreciated!

[maniacb]

It would be helpful if you could provide your actual file as per the yellow banner above. We can't help without the file structure.