Loop through workbook and rename worksheets with dialog box

[theprincipal78]

Hi all

I'm relatively new to vba.
as the title indicates I'm trying to loop through a workbook and rename all visible worksheets with a dialog box.

I was trying to combine something like the below.
Instead of calling every sheetname in a msgbox I rename every sheet with a dialog box.



Sub MsgBox_CallAllMySheets()

Dim sht As Worksheet

For Each sht In Sheets

'call sheetname in a msgbox
'MsgBox_PartOfCallAllMySheets (sht.Name)

'rename sheet with test application
Application.Dialogs(284).Show

Next sht

End Sub


I'm greatfull for any assistance.

thanks

 

[Trevor G]

Try this

Sub reNameSheets1A()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Activate
If ws.Visible = xlSheetVisible Then
Application.Dialogs(284).Show
End If
Next ws
End Sub

 

[theprincipal78]

worked perfectly.
many thanks.

 

[Trevor G]

Happy to help and thank you for letting me know you have a working solution.