Hi Forum,
I am using VBA to form a budget and have struck a problem.
The problem is I cannot get the cells (Columns 10 and 11) show a %age instead of text or number, please see code below.
Any help on this would be greatly appreciated.

Private Sub BtnOk_Click()
'Find next row on the data sheet
NextRow = Worksheets("Data").Cells(Rows.Count, 1).End(xlUp).Row + 1

'Write the values from this form to that row
With Worksheets("Data")
.Cells(NextRow, 1).Value = Me.TbId
.Cells(NextRow, 2).Value = Me.TbName
.Cells(NextRow, 3).Value = Me.LbDept.Value
.Cells(NextRow, 4).Value = Me.TbRate
.Cells(NextRow, 5).Value = Me.TbHrs
.Cells(NextRow, 6).Value = Me.TbDays
If Me.OptBtnYes = True Then
.Cells(NextRow, 7) = "Yes"
Else
.Cells(NextRow, 7) = "No"
End If
.Cells(NextRow, 10).Value = Me.TbSupN
.Cells(NextRow, 11).Value = Me.TbSupC
If Me.OptBtnHousY = True Then
.Cells(NextRow, 8).Value = 5000#
Else
.Cells(NextRow, 8).Value = "N/A"
End If

End With

'Unload the Form
Unload Me
End Sub