I want worksheet name to be auto change when I change the file name

In the ThisWorkbook module:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
ActiveSheet.Name = Me.Name 'refer to your sheet if it's not the active
sheet
End Sub

Sheet names are limited to 31 characters, so you may want to do
something like this:

If Len(Me.Name) 31 Then ActiveSheet.Name = Left(Right(Me.Name,
35), 31)

Cliff Edwards