How to set up a worksheet name as file name

W

ward376

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
 
Top