alright. i could use a clue.
the blue text is the stuff that's supposed to do the checking for duplicate names.
Private Sub BtnRenameOK_Click()
If Me!LstTables.ItemsSelected.count > 0 And Len(Me.TxtRename > 0) Then
If Me!LstTables.ItemsSelected.count < 2 Then
Dim rowNum As Integer
Dim counter As Integer
rowNum = Me.LstTables.ListCount
For counter = 0 To rowNum Step 1
Dim varItem2 As Variant
For Each varItem2 In Me.LstTables.ItemsSelected
If Me.LstTables.ItemData(varItem2) = Me.TxtRename Then
MsgBox "Same name as another table."
GoTo BackEnd
End If
Next varItem2
Next counter
Dim varItem As Variant
For Each varItem In Me.LstTables.ItemsSelected
DoCmd.Rename Me.TxtRename, acTable, Me.LstTables.ItemData(varItem)
Next varItem
Me.TxtRename = ""
Me.LstTables.Requery
Else
MsgBox "You must select a single list in order to to rename it.", , "Cannot Rename"
End If
End If
BackEnd:
End Sub