D
DataFreakFromUtah
no question here, just a procedure for the archive.
search criteria:
Name a worksheet tab after the workbook file name
Name the active worksheet after the workbook file name
Apply the workbook.name to the Activesheet.name
Sub SheetTabNameFromFileName()
'Names the active worksheet after the workbook file name.
ActiveSheet.Name = Left(ThisWorkbook.Name, (Len(ThisWorkbook.Name) - 4))
End Sub
search criteria:
Name a worksheet tab after the workbook file name
Name the active worksheet after the workbook file name
Apply the workbook.name to the Activesheet.name
Sub SheetTabNameFromFileName()
'Names the active worksheet after the workbook file name.
ActiveSheet.Name = Left(ThisWorkbook.Name, (Len(ThisWorkbook.Name) - 4))
End Sub