Is it possible to create named ranges based on tab names programatically?

Adapt this to your needs:

Sub WhatsInAName()
Dim s As Worksheet
For Each s In Worksheets
    s.Range("A1:B10").Name = s.Name & "TABLE1"
    s.Range("D10:D20").Name = s.Name & "TABLE2"
Next
End Sub