Son açılan çalışma kitabının adını makro ile tesbit?

[hsayar]

'Unload Me
Dim wkb As Workbook
    For Each wkb In Application.Workbooks
    MsgBox wkb.Name
    Next
'MsgBox Application.Workbooks.Count, , "Açık kitap sayısı"
End Sub

Mevcur döngüde tüm kitapların adı geliyor ben istiyorum
bu döngü sadece son eklenen kitabın adı nı değişkene atasın

Sonkitap = wkb.name gibi

 

[hsayar]

Private Sub CommandButton1_Click()
'Unload Me
Dim wkb As Workbook
    For Each wkb In Application.Workbooks
    Sonkit = wkb.Name
    Next
'MsgBox Application.Workbooks.Count, , "Açık kitap sayısı"
MsgBox Sonkit
End Sub

yazarka aklıma geldi madem en son son eklenen kitap adı geliyor o zaman sorun yok


Peki ilk kitap adı nasıl olacak?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları denermisiniz.

Sub İLK_KİTAP_ADI()
    If Application.Workbooks.Count > 0 Then
    MsgBox Workbooks(1).Name
    End If
End Sub
 
Sub SON_KİTAP_ADI()
    If Application.Workbooks.Count > 0 Then
    MsgBox Workbooks(Application.Workbooks.Count).Name
    End If
End Sub

 

[hsayar]

teşekkür ederim hocam bununla istediğimiz kitabın adını öğreniriz