Sub List_of_sheets() Dim i As Integer
 For i = 2 To ActiveWorkbook.Worksheets.Count
 ActiveSheet.Cells(i, 1).Value = ActiveWorkbook.Worksheets(i).Name
 Next i
 End Sub

Sub AttachFile_test()    ' пример использования
    Filename$ = GetFilePath()
    If Filename$ = "" Then Exit Sub
    MsgBox "Выбран файл: " & Filename$
End Sub
 
Function GetFilePath(Optional ByVal Title As String = "Выберите файл для обработки", _
                     Optional ByVal InitialPath As String = "c:\", _
                     Optional ByVal FilterDescription As String = "Файлы счетов", _
                     Optional ByVal FilterExtention As String = "*.*") As String
    On Error Resume Next
    With Application.FileDialog(msoFileDialogOpen)
        .ButtonName = "Выбрать": .Title = Title:
        .InitialFileName = GetSetting(Application.Name, "GetFilePath", "folder", InitialPath)
        .Filters.Clear: .Filters.Add FilterDescription, FilterExtention
        If .Show <> -1 Then Exit Function
        GetFilePath = .SelectedItems(1)
        folder$ = Left(.SelectedItems(1), InStrRev(.SelectedItems(1), "\"))
        SaveSetting Application.Name, "GetFilePath", "folder", folder$
    End With
End Function

'CODE 1 Ставим флажок, если был одиночный щелчок по ячейке
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("g5:r70")) Is Nothing Then
Target.Font.Name = "Marlett"
If Target = "a" Then
Target = ""
Else
Target = "a"
End If
End If
End Sub

'CODE 2 Снимаем флажок, если был двойной щелчок по ячейке
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("g5:r70")) Is Nothing Then
Cancel = True 'чтобы не уйти в режим редактирования
Target.Font.Name = "Marlett"
If Target = "a" Then
Target = ""
Else
Target = "a"
End If
End If
End Sub

Sub Удалить_данные()
    Sheets("Данные").Select
    Cells.Select
    Selection.Clear
End Sub

ActiveSheet.PasteSpecial

Sub название_макроса

    Range("L3:L5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C3").Select
    ActiveSheet.Paste

End Sub