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ı