VBA Makro Berechnung

Sub Nobilia()
Dim ws As Worksheets
Dim objWB As Workbook
Dim vntFile As Variant
Dim strSheetname As String
vntFile = Application.GetOpenFilename("Excel Dateien(*.xlsx;*xlsb), " & "*.xlsx;*xlsb")
If vntFile  False Then
Set objWB = Workbooks.Open(vntFile)
objWB.Worksheets.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
objWB.Close SaveChanges:=False
Set objWB = Nothing
With ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
End With
MsgBox "Die ausgewählte Datei wurde erfolgreich importiert!", vbInformation, "Daten Import"
End If
Exit Sub
'Bis hier funktioniert das Makro!
'Mit diesem Code möchte ich in das Sheets("Nobilia") die Tabellenblätter die mit "B" beginnen,
'in Spalte A (von A14 bis alle Tabellen mit "B" ausgelistet sind) auflisten.
Sheets("Nobilia").Activate
For I = 14 To Worksheets.Count
Cells(I, 1) = Sheets(I).Name
Next I
'Mit diesem Code möchte ich die in Sheets("Nobilia") vorhanden Formeln neu berechnen.
Sheets("Nobilia").Calculate
'Wechseln in Sheets("Nobilia") - funktioniert.
Sheets("Nobilia").Select
End Sub