セル内の改行

Alt+Enter

ActivCell="↑" & vbLf & "↓"