Index ausserhalb... nach Workbook.add

Public Sub Angebot_Neu()
Dim wkb As Workbook
Set wkb = Workbooks.Add(Template:=conPfadVorlage)
strPfadDatei = strAngebotOrdner & strAngebot & ".xls"
strAngebotXLS = strAngebot & ".xls"
With wkb
.RunAutoMacros Which:=xlAutoOpen
.SaveAs strPfadDatei
End With
ActiveWorkbook.Close
End Sub

Mit dieser zweiten Prozedur öffne ich das Angebot anschließend.

Public Sub Angebot_oeffnen()
Workbooks.Open(Filename:=strPfadDatei, UpdateLinks:=3).RunAutoMacros Which:=xlAutoOpen
strAngebotXLS = ActiveWorkbook.Name
End Sub

Bei der nächsten Prozedur

Private Sub PosDatenfelder_eintragen()
Dim wkb As Object
' HilfsVariablen deklarieren
Dim iMEL As Integer
Dim iPVC As Integer
Dim iPP As Integer
Dim iABS As Integer
iMEL = 0
iPVC = 0
iPP = 0
iABS = 0
Set wkb = Worksheets(strAngebotXLS).Sheets("A_Eingabe")
End Sub

steigt Excel dann mit der Fehlermeldung aus, "index außerhalb des gültigen bereichs". - Wieso?
Die Werte der Variablen sind so, wie sie von den anderen Programmteilen ohne Probleme genutzt wurden und auch die Arbeitsmappe ist geöffnet.
Vielen Dank und Gruß
TimoG