Convert Range to Table for a specific range in each selected sheet

Hello,

I would like to change this VBA code to be able to run it on selected sheets (looping) in one workbook but got stuck. (Ideally if the table name of each created table in each sheet =cell B3 of respective sheet (not a must though))
Help very appreciated.

Sub AddTables()

Dim ws As Worksheet
Dim tbl As Range

Set tbl = Range("AA18: AH130")
Set ws = ActiveSheet

    ws.ListObjects.Add(SourceType:=xlSrcRange, Source:=tbl).Name = "Table" & i
        
    End Sub

Thank You!