Hi

Welcome to ExcelFox!!

try

Code:
Dim i   As Long
Dim s   As String

For i = 1 To 4
    s = "Week " & Format(i, "00")
    If ThisWorkbook.Worksheets(s).Buttons("ReSubmit").Visible Then
        MsgBox "This function is not avaiable whilst you have an impending" & vbLf & _
                "re-submission of " & s, vbInformation, "Function Not Available"
        Exit Sub
    End If
Next