Renaming Worksheets using Find/Replace

[rynoblaster]

What is the code for renaming the title of a worksheet using find/replace? I have a workbook full of worksheets named "1-31-04", "2-29-04", "3-31-04", etc. and I want the hyphens replaced with underscores. Thanks

 

[Glaswegian]

Try this

Sub SheetNames()
Dim sht As Worksheet

For Each sht In ActiveWorkbook.Worksheets
sht.Name = Replace(sht.Name, "-", "_")
Next sht
End Sub
Sub PrintSettings()

HTH

Regards

 

[rynoblaster]

Thanks!