iterate code through all open files

[ammartino44]

Hello. How can I run this code for all open files?

Sub nametab() 
Dim s As String 
Dim ss As String 
s = ActiveWorkbook.Name 
ss = Left(s, Len(s) - 4) 
Sheets(1).Name = ss 
End Sub

[Leith Ross]

Hello ammartino44,

Can you explain more about what you are doing with this code?

[jolivanes]

Try either one of these.
With the 2nd one, it doesn't matter how many characters the extension has.

Sub Name_Tab()
Dim s As String, ss As String, j As Long
    For j = 1 To Workbooks.Count
        If Workbooks(j).Name <> "PERSONAL.XLSB" Then
        If Len(Workbooks(j).Name) > 31 Then MsgBox Workbooks(j).Name & " has too many characters." & vbLf & _
        "Only 31 characters are allowed for a sheet name.": Exit Sub
        With Workbooks(j)
            s = .Name
                ss = Left(s, Len(s) - 4)
            .Sheets(1).Name = ss
        End With
        End If
    Next j
End Sub

Sub Name_Tab()
Dim  j As Long
    For j = 1 To Workbooks.Count
        If Workbooks(j).Name <> "PERSONAL.XLSB" Then
        If Len(Workbooks(j).Name) > 31 Then MsgBox Workbooks(j).Name & " has too many characters." & vbLf & _
        "Only 31 characters are allowed for a sheet name.": Exit Sub
        With Workbooks(j)
            .Sheets(1).Name = Trim(Split(ActiveWorkbook.Name, ".")(0))
        End With
        End If
    Next j
End Sub

[ammartino44]

@jolivanes. If you have two "if's" don't you need two "end ifs"?

[JOHN H. DAVIS]

You don't need an "end if" for a one liner. I think one of his if statements is a one liner.

[jolivanes]

One way of finding out of course would be to try it out but, like John mentioned, a one liner does not need the "End If".
Thanks for explaining this John.

[JOHN H. DAVIS]

Welcome, no problem at all.