Set oRange1 = Worksheets("Лист1").Range("C1")

    Dim rr As Range
    Set rr = Range(ThisWorkbook.Sheets(sheetNew).ListObjects(1).Name & "[verifyFull]")
    If Not rr Is Nothing Then
        MsgBox "Yes"
    Else
        MsgBox "No!"
    End If

Sub All_Formulas_To_Values_OnlyVisible()
    Dim rRng As Range, rArea As Range, rc As Range
    If Selection.Count = 1 Then
        Set rRng = ActiveCell
    Else
        Set rRng = Selection.SpecialCells(12)
    End If
    For Each rArea In rRng.Areas
        For Each rc In rArea.Cells
            If rc.Interior.ColorIndex = xlNone Then
                    rc.Value = rc.Value
            End If
    Next
    Next rArea
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rc As Range
    For Each rc In Target.Cells
        If Not rc.Locked Then
            If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then
                Application.CutCopyMode = False
                MsgBox "В эти ячейки нельзя копировать другие ячейки", vbInformation, "www.excel-vba.ru"
                Exit Sub
            End If
        End If
    Next
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Select Case Sh.Name
    Case "Лист2"
    Me.Protect "1"
    Case Else
    Me.Unprotect "1"
    End Select
End Sub

ActiveSheet.Delete

=ПОДСТАВИТЬ(ПСТР(ПРАВСИМВ(" "&ПОДСТАВИТЬ(B2;"_";ПОВТОР("_";999));999*1);1;999);"_";"")

=--ПОДСТАВИТЬ(ПСТР(ПРАВСИМВ(" "&ПОДСТАВИТЬ(B2;"_";ПОВТОР("_";999));999*1);1;999);"_";"")

=ВЫЧИСЛИТЬ(Лист1!$D$1)+(ТДАТА()*0)