Private Sub SPL_reverberation_click()
Sheets("add").Range("B50").Value = "reverberation"
Sheets("add").Range("B51").Value = Me.Num_project.Caption
Me.Hide
Sheets("add").Range("A:A").EntireColumn.Hidden = True
Sheets("add").Send_SPL.Visible = True
Sheets("add").Cancel.Visible = True
Sheets("add").Range("C130").Value = "Update"
'Copy the table for the SPL
Sheets("Search").Range("CA16:CB40").Copy
Sheets("add").Range("C12:D37").PasteSpecial
Sheets("add").Activate
End If
End Sub