Bereich aus anderer Tabelle für 2 Sekunden anzeigen

Thema: Allgemein - Gruppe Ansicht

Arbeitsmappe

131001    100200

Problem: Wie kann ich einen vorgegebenen Bereich aus einer zweiten Tabelle im aktiven Blatt für 2 Sekunden anzeigen lassen?

StandardModule: basMain

Sub Anzeige()
   Worksheets("Rang").Range("B2:M16").CopyPicture _
      Appearance:=xlScreen, Format:=xlBitmap
   With Worksheets("Tabelle1")
      .Paste Destination:=.Range("B2")
   End With
   Application.Wait Now + TimeSerial(0, 0, 2)
   ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
End Sub