Sub insert()
'
' insert Makro
' 26.04.2007 
'
' Tastenkombination: Strg+i
'
    Sheets("temp").Select
    Range("A1").Select

    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    Application.Run "Explosion_Vorlage.xls!splitup"
    Application.Run "Explosion_Vorlage.xls!MakeCueless"
    Application.Run "Explosion_Vorlage.xls!copyClueless"
End Sub