Export Outlook message to Excel, outlook macro

[Benzadeus]

That's strange... it works well for me.
Anyway, just a workaround to add at the ending of your code:
[VBA] End With
Columns(1).Delete
Rows(ActiveSheet.UsedRange.Rows.Count).Delete
Columns.AutoFit
[/VBA]