Obter String da célula Transformar em duas strings - Adicionar resultado a Matriz

Question

Oi, eu gostaria de saber como posso capturar uma string e dividi-la em duas strings diferentes.

A célula A1 tem:

Cat
Dog 

Na mesma célula usando Alt + Enter

Estou tentando criar uma matriz de tamanho maior do que o meu exemplo.

Seria:

arr(0) = Cat
arr(1) = Dog

Sub CatchTwoString()

Range("A1").Select

Dim myString As String
Dim arr() As Variant

myString = Selection.Text

ReDim arr(0)

arr(0) = myString

MsgBox arr(0)


End Sub

    

Answer 1

Use Dividir e dividir no retorno de carro:

Sub CatchTwoString()

Dim strarr() As String
strarr = Split(ActiveSheet.Range("A1").Value, Chr(10))

Dim i As Long
For i = LBound(strarr) To UBound(strarr)
    MsgBox strarr(i)
Next i

End Sub