Hi
This is boggling me. Unless I make the sheets active this code does not work and I get run-time error 1004 Application-defined or object-defined error
Any suggestions please?
Many thanks
This is boggling me. Unless I make the sheets active this code does not work and I get run-time error 1004 Application-defined or object-defined error
Code:
Sub copysubclientsandsplit()
'
With Worksheets("Sub-Client Config")
.range(range("A1"), range("A1").Offset(0, 2).End(xlDown)).Copy
End With
With Worksheets("Sub-Client Info")
.range("A5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.range(range("A5"), range("A5").End(xlDown)).TextToColumns Destination:=range("A5"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="|", FieldInfo:=Array(Array(1, 2), Array(2, 2)), TrailingMinusNumbers:=True
.Borders.LineStyle = xlContinuous
End With
End Sub
Any suggestions please?
Many thanks