Hi,
I have a UserForm named UFListSelector. On it are 8 command buttons that I want the names to be the value of the range of cells A1:H1 on sheet RoomItems. I'm getting a run-time error 13
type mismatched error.

Here is the Code:

Option Explicit
Private Sub cmdShowItemSelect_Click()
Dim i As Integer

UFListSelector.RefEdit1.Value = ActiveCell.Address
For i = 1 To 8
UFListSelector.Controls("CommandButton" & i).Caption = _
ActiveWorkbook.Sheets("RoomItems").Range(Columns(i) & "1").Value
Next i

UFListSelector.Show
End Sub