i made a user from with this code
Private Sub userForm_Initialize()
Me.ComboBox1.List = Array("15mg", "30mg")
Me.CommandButton1.Enabled = False
End Sub

Private Sub ComboBox1_Change()
    
    Me.CommandButton1.Enabled = (Me.ComboBox1.ListIndex <> -1)
    
End Sub

Private Sub CommandButton1_Click()

Dim lrow As Long, offstcol As Long

lrow = Cells(Rows.Count, 1).End(xlUp).Row + 1

If ComboBox1.Value = "30mg" Then offstcol = 2

With Sheets(1)
    Range("A" & lrow).Value = VBA.Format(TextBox1.Value, "m/d/yyyy")  'set the value in the first empty row in column A to the date textbox
    Range("B" & lrow).Offset(, offstcol).Value = TextBox2.Value 'set the value in the first empty row in column B to the Quantity A textbox
    Range("C" & lrow).Offset(, offstcol).Value = TextBox3.Value  'set the value in the first empty row in column C to the Quantity B textbox
    Range("F" & lrow).Value = TextBox4.Value
End With

Unload Me   'close the form
End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub
this code works but i want to use the userform for different sheets so i changed my combobox1 to give me a list from cells because the names change from sheet to sheet. i also then changed the if statement to pull the cell instead of the name, here is what i changed it to and now i cant get anything to show up in the combobox (pull down box)
Private Sub userForm_Initialize()
Me.ComboBox1.List = Array(Range("B3", "D3"))
Me.CommandButton1.Enabled = False
End Sub

Private Sub ComboBox1_Change()
    
    Me.CommandButton1.Enabled = (Me.ComboBox1.ListIndex <> -1)
    
End Sub

Private Sub CommandButton1_Click()

Dim lrow As Long, offstcol As Long

lrow = Cells(Rows.Count, 1).End(xlUp).Row + 1

If ComboBox1.Value = Range("D3") Then offstcol = 2

With Sheets(1)
    Range("A" & lrow).Value = VBA.Format(TextBox1.Value, "m/d/yyyy")  'set the value in the first empty row in column A to the date textbox
    Range("B" & lrow).Offset(, offstcol).Value = TextBox2.Value 'set the value in the first empty row in column B to the Quantity A textbox
    Range("C" & lrow).Offset(, offstcol).Value = TextBox3.Value  'set the value in the first empty row in column C to the Quantity B textbox
    Range("F" & lrow).Value = TextBox4.Value
End With

Unload Me   'close the form
End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub
did I put something in wrong?
i must have messed up this line because nothing shows up in the pull down box (yes the cells have something in them)
Me.ComboBox1.List = Array(Range("B3", "D3"))
any help with this would be awesome
thanks
JED