MyNum = ThisWorkbook.Sheets("Measurements").Range("H13").value
On Error Resume Next
For Each MyWb In Array("eqdcs 1.xlsm", "eqdcs 2.xlsm", "eqdcs 3.xlsm", "eqdcs 4.xlsm", "eqdcs 5.xlsm", "eqdcs 6.xlsm")
    Application.ScreenUpdating = False
    Set wbOPEN = Workbooks(MyWb)
    
    If Not wbOPEN Is Nothing Then
        WasOpen = True
    Else
        Set wbOPEN = Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & MyWb)
    End If
    ThisWorkbook.Sheets("Measurements").Unprotect Password:="password"
    wbOPEN.Sheets("measurements").Range("H13").value = MyNum
 ThisWorkbook.Sheets("Measurements").Unprotect Password:="password"
  
  ThisWorkbook.Sheets("Msg").Unprotect Password:="password"

  
    Set ws = Worksheets("MSG")
    lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    With ws
    If Me.yesbox.value = True Then .Cells(lRow, 2).value = "yes"
      .Cells(lRow, 1).value = Me.Namebox.value
        
        
         .Cells(lRow, 3).value = Format(Now(), "mm/dd/yyyy")
        .Cells(lRow, 4).value = Format(Now(), "Hh:Nn:Ss AMPM")
  
ThisWorkbook.Sheets("Msg").Protect Password:="password"
    
    If WasOpen Then
    

    wbOPEN.Save
Else: wbOPEN.Close True
     Set wbOPEN = Nothing
    WasOpen = False
 
     End If
    
        Next MyWb
        ThisWorkbook.Save