Hi,

Just:
Sheet1.Range("B4") = ActiveSheet.Name
should do it.

HTH