Userform with calendar month code to bold 2 inputbox result day label value

[mperrah]

Hello,
I have a userform to track monthly bills.
I have radial buttons to make Bold the day of the week of pay day. 4 options:
Off, Fridays, Every other Friday and Bitmonthly (user input box one for each day)
The code works except every day becomes bold instead of just the 2 input values.
Not sure what I'm I have done wrong.

Any help is much appreciated.


Sub pd_BiMonth() ' bi monthly'makes the nD1 and nD2 text input entries day captions Bold when the check box is active
Dim D, x As Integer
Dim nD1 As Variant
Dim nD2 As Variant
Dim myDate As Date


With ufCal
nD1 = InputBox("Please enter the day of the month your first payday lands on", "First PayDay of Month")
If nD1 = "" Then Exit Sub
nD2 = InputBox("Please enter the day of the month your second payday lands on", "Second PayDay of Month")
If nD2 = "" Then Exit Sub
For x = 1 To 42
.Controls("dnum" & x).Font.Bold = False
.Controls("dnum" & x).Font.Size = 9
Next x

myDate = .uMonth.Caption & "-1-" & .uYear.Caption

D = FirstWeekDayOfMonth(myDate) - 1

.Controls("dnum" & D + nD1).Font.Bold = .ob_BiMonth.Value
.Controls("dnum" & D + nD1).Font.Size = 11

.Controls("dnum" & D + nD2).Font.Bold = .ob_BiMonth.Value
.Controls("dnum" & D + nD2).Font.Size = 11
End With
End Sub
This is the code for every other friday, works fine

Sub pd_EoF()

Dim wknm As Date
Dim mywk As Long
Dim x, j As Long


With ufCal


For j = 1 To 42
.Controls("dnum" & j).Font.Bold = False
.Controls("dnum" & j).Font.Size = 9
Next j


For x = 6 To 41 Step 7
If .Controls("dnum" & x).Caption <> "" Then
wknm = .uMonth.Caption & "-" & .Controls("dnum" & x).Caption & "-" & .uYear.Caption
mywk = myWeekNum(wknm)
If wknm Mod 2 = 1 Then
.Controls("dnum" & x).Font.Bold = .ob_EoF.Value
.Controls("dnum" & x).Font.Size = 11
End If
End If
Next x
End With


End Sub

[mperrah]

I keep trying different scenarios and came up with this. Seems to work so far.
Hope I didn't waste your time.
Thank you for listening. Hope this helps someone else too.

Sub pd_BiMonth() ' bi monthly'makes the nD1 and nD2 text input entries day captions Bold when the check box is active
Dim D, x As Integer
Dim nD1 As Variant
Dim nD2 As Variant
Dim myDate As Date


With ufCal
nD1 = InputBox("Please enter the day of the month your first payday lands on", "First PayDay of Month")
If nD1 = "" Then Exit Sub
nD2 = InputBox("Please enter the day of the month your second payday lands on", "Second PayDay of Month")
If nD2 = "" Then Exit Sub

myDate = .uMonth.Caption & "-1-" & .uYear.Caption

D = FirstWeekDayOfMonth(myDate) - 1

D1 = D + nD1
D2 = D + nD2

For x = 1 To 42
If x = D1 Or x = D2 Then
.Controls("dnum" & x).Font.Bold = True
.Controls("dnum" & x).Font.Size = 11
Else
.Controls("dnum" & x).Font.Bold = False
.Controls("dnum" & x).Font.Size = 9
End If
Next x

End With
End Sub