Hi

Thanks for the feedback. See this version.

Code:
Dim i   As Long
Dim s   As String
Dim a   As String

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