Hi sjvenz,


Code
-------------------

Private Sub cmd_Create_SignINsheet_Click()

'Dim WB As Mowrkbook, WS As Worksheet
'Set WB = Windows("BLANK Sign in Sheet.xls").Activate
'Set WS = Sheets("Sign-In Sheet").Select
Dim NewRow As Long
Dim index As Integer
Windows("BLANK Sign in Sheet.xls").Activate
Sheets("Sign-In Sheet").Select

Range("c7,c9,k9,s9,c11,k11,s11,c12,e12,g12,k12,c13 ,e13,g13,k13,c14,e14,g14,c17:c32,k17:k32").ClearCo ntents

Range("C17").Cells(1).Value = TextBox1.Value

With ListBox2
For index = 0 To .ListCount - 1
If .Selected(index) Then
Range("k17").Offset(NewRow).Value = ListBox2.List(index)
NewRow = NewRow + 1
End If
Next
End With
End Sub

-------------------


--
Message posted from http://www.ExcelForum.com