Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.EnableEvents = False Application.DisplayAlerts = False If Target.Column <> 3 Or Target.Count > 1 Then Exit Sub lr = Sheets("Projects").Range("c" & Rows.Count).End(xlUp).Rows.Value Sheets("Sample").Copy after:=Sheets(Sheets.Count) On Error Resume Next   x = Len(Sheets(lr).Name)         If IsEmpty(x) Then                         ActiveSheet.Name = lr                         ActiveSheet.Rang