Ich möchte aus dem zu öffnenden Workbook das Blatt "Berechnung" (das einzige Blatt) in die aktuelle Datei kopieren. Die schon geöffnete Datei wird in Zukunft allerdings einen anderen Namen haben, deswegen dachte ich, mach ich das mit einem zugewiesenem Namen. Bei Sheets.Select bekomme ich allerdings einen Laufzeitfehler '9': Index außerhalb des Bereichs. Was mache ich falsch?

Dim PEMS
PEMS = ThisWorkbook.Name

Application.DisplayAlerts = False
Workbooks.Open Filename:="Dateipfad", ReadOnly:=True
Application.DisplayAlerts = True
Sheets("Berechnung").Select
Sheets("Berechnung").Copy Before:=Workbooks("PEMS").Sheets(2)

Mithilfe eines Makros in VBA erstelle ich ein Rechteck an einer bestimmten Stelle, was wiederum dann beim nächsten Öffnen der Datei an einer anderen Stelle erstellt wird. Dass dann nicht nach einer gewissen Zeit das Blatt voll ist mit Rechtecken, würde ich gerne bei bei Start eine Range nach diesem Rechteck durchsuchen und löschen, bisher mache ich das so:

    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
           If shp.Name = "HeuteRechteck" Then
              shp.Delete
           End If
Next

Hier bekomme ich allerdings "Objekt unterstützt diese Eigenschaft oder Methode nicht", was womöglich an der Benennung liegt. Benennen u.a. tue ich das Rechteck so:

ActiveSheet.Shapes.AddShape(msoShapeRectangle, ActiveCell.Left, ActiveCell.Top, 12, 795).Select
Selection.ShapeRange.Line.Visible = msoFalse
With Selection.ShapeRange.Fill.Shapes(1)
    .Visible = msoTrue
    .ForeColor.RGB = RGB(146, 208, 80)
    .Transparency = 0.5
    .Name = "HeuteRechteck"

Mach ich beim Benennen was falsch?

Habt ihr irgendwelche Ideen oder Ansätze?