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!