Il comando da VBA per formattare la cella attiva come "testo a capo" è:
Selection.WrapText = True
Ciao