Duplicate excelsheet by clicking a specific cell in excel. Possible?

[iscon]

Hi everyone,

First I must say that this forum is awesome. Everybody wants to help!

So to my question. Is it possible to create a macro that makes it possible to duplicate the activated sheet by clicking a cell (Something like a "hyperlink"). Is this possible to do? I would be grateful if someone took a look at it.

/V

 

[Fluff]

How about

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
   If Target.Address(0, 0) = "A1" Then
      Cancel = True
      Sh.Copy , Sheets(Sh.Index)
   End If
End Sub

This needs to go in the ThisWorkbook module & will copy the active sheet if you double-click A1

 

[My Aswer Is This]

Try this:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Double click on Range("A1") and this script will make a duplicate of the sheet

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Modified  3/7/2019  10:46:43 AM  EST
Cancel = True
Dim ans As String
ans = ActiveSheet.Name
If Not Intersect(Target, Range("A1")) Is Nothing Then
Sheets(ans).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "New " & ActiveSheet.Index
End If
End Sub