Instead of ws.Cells(nextrows, 2) = ctrl.Value use ws.Cells(nextrows, 2) = ctrl.Caption
ws.Cells(nextrows, 2) = ctrl.Value
ws.Cells(nextrows, 2) = ctrl.Caption
Forum Rules