berduş hocam çok teşekkür ederim, tamamdır.
hocam epey bir süre yoktum sorunuza geç cevap verdiğim için kusura bakmayın, sorun;
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
SonSyf = Sh.Name
End Sub
yordamı parametreli kullanmamıştım hocam, fark buradaydı