Create a sheet named "Labels". Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your "TEMPLATE" sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Double click the cell in the upper left corner of the label you want to copy to the "Labels" sheet.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1,A7,A13,A19,A25,A31,A37")) Is Nothing Then Exit Sub
Target.Resize(5, 6).Copy Sheets("Label").Range("A1")
End Sub
Bookmarks