Hi Ryan,

Welcome to ExcelFox !!!

In a standard module

Code:
Function GETSHEETS(ByRef ExceptShts As Variant)
    
    Dim n As Long, i  As Long, j As Long, x, Shts()
    
    j = Worksheets.Count
    ReDim Shts(1 To j)
    For i = 1 To j
        x = Application.Match(Worksheets(i).Name, ExceptShts, 0)
        If IsError(x) Then
            n = n + 1
            Shts(n) = Worksheets(i).Name
        End If
    Next
    If n Then
        ReDim Preserve Shts(1 To n)
        GETSHEETS = Shts
    End If
    
End Function
in the workbook module

Code:
Private Sub Workbook_Open()
    Dim x
    
    x = GETSHEETS(Array("view"))
    Worksheets("view").ComboBox1.List = x
    
End Sub
and add the following lines in the cmdAdd_Click procedure

Code:
Dim Idx As Long

Idx = Me.ComboBox1.ListIndex
If Idx = -1 Then
    MsgBox "Select database sheet", vbInformation
    Exit Sub
End If
Set ws = Worksheets(CStr(Me.ComboBox1.List(Idx)))