Zadigo

Option Explicit

Sub assign_MacroToShape()
	'
	' This macro assigns a macro to a given shape
	'

	'Set variables
  Dim active_Book As Workbook
  Set active_Book = ActiveWorkbook

Zadigo

Sub create_Table_BordersAnywhere()
	'Get current range selected
    Dim current_Selection As Range
    Set current_Selection = Selection
    
	'Set in range
    Dim create_Table As Range
    Set create_Table = Range(current_Selection.Address)
    
    Dim elements(5) As String