I have a series of account numbers customers in column A. This list is of variable size.
My need is:
An example of how it should be:
Sub exploding () Dim sh As Worksheet, numf As Long, row As Long Set sh = ActiveSheet Application.ScreenUpdating = False numf = 1: = 1 For lig lig sh = 1 To. [A65536]. End (xlUp) Worksheets.Add after: = Worksheets (Worksheets.Count) ActiveSheet.Name = "Part" & numf ActiveSheet.Range ("A1: A40") = sh.Cells (lig, 1). Resize (40, 1). Value = lig lig + numf 39 + 1 = numf lig sh.Activate Next Application.ScreenUpdating = True End Sub
You select the sheet in question before running the macro.