Split cells VBA
Thank you Per,
Cheers
Diddy
"Per Jessen" wrote:
Hi Diddy,
Try one of theese:
With Worksheets(1)
or
With ActiveSheet
Regards,
Per
"Diddy" skrev i meddelelsen
...
Hi everyone,
I've been using the following (kindly supplied by Rick Rothstein) to split
address items.
Sub SplitCells()
Dim X As Long
Dim Z As Long
Dim LastRow As Long
Dim Sections() As String
With Worksheets("Sheet1")
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For X = 2 To LastRow
Sections = Split(.Cells(X, "A").Value, "/")
For Z = 0 To UBound(Sections)
.Cells(X, Z + 2).Value = Sections(Z)
Next
Next
End With
End Sub
I now have lots of single sheet wkbks which have named sheets. I've tried
taking the " " out from the With Worksheets("Sheet1") and also calling it
Activesheet getting very mixed up :-(
If anyone can help (possibly explain what's foxing me) that would be
great!
Thanks
Diddy
.
|