A function that crashes: Compile Error: Procedure too large

[snb]

Sub M_snb_weekdagen()
   MsgBox Join([transpose(text(row(2:8),"[$-407]dddd"))], vbLf), , "Deutschland"
End Sub

Sub M_snb_weekdagen()
   MsgBox Join([transpose(text(row(2:8),"[$-40A]dddd"))], vbLf), , "Espagna"
End Sub