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