Sub Kassenbestaende_aktualisieren()
'
' Kassenbestaende_aktualisieren Makro
' Makro am 13.01.2010 von tigges aufgezeichnet
'

'
    Sheets("Barkasse").Select
    Application.Run "Test.xls!Barkasse_2"
    Sheets("KSP").Select
    Application.Run "Test.xls!Barkasse_2"
    Sheets("VB").Select
    Application.Run "Test.xls!Barkasse_2"
    Sheets("Spar-VB").Select
    Application.Run "Test.xls!Barkasse_2"
    Sheets("Gesamtübersicht").Select
    Range("D48").Select
End Sub