Macro to Convert Selected Range to Table

Hey guys!

I think I'm close... A simple macro to convert the selected cells to a table. Here's my code:

Sub FormatTable()
'
' FormatTable Macro
'
' Keyboard Shortcut: Ctrl+Shift+T
'
   Dim myRange As Range
    Set myRange = Selection
    
    ActiveSheet.ListObjects.Add(xlSrcRange, Range(myRange), , xlYes).Name = _
        "Table1"
    Range("Table1[#All]").Select
    ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleMedium9"
    Range("H3").Select
End Sub

I'm getting Run-time error '1004':
Method 'Range' of object'_Global' failed

Cheers,
Lucas