Option Explicit
' ==============================================================
' The Pop-up Calendar Add-In for Excel 2007/2010
' Devised and coded by Martin Green
' View the tutorial at http://www.fontstuff.com/vba/vbatut07.htm
' Contact: martin@fontstuff.com
' ==============================================================
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
On Error Resume Next
Dim cell As Object
For Each cell In Selection.Cells
cell.Value = DateClicked
Next cell
Unload Me
End Sub
Private Sub UserForm_Initialize()
If IsDate(ActiveCell.Value) Then
Me.MonthView1.Value = ActiveCell.Value
End If
End Sub
When I use this code in AddIn then I have problem in this code that part is Bold.Please tell me why
' ==============================================================
' The Pop-up Calendar Add-In for Excel 2007/2010
' Devised and coded by Martin Green
' View the tutorial at http://www.fontstuff.com/vba/vbatut07.htm
' Contact: martin@fontstuff.com
' ==============================================================
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
On Error Resume Next
Dim cell As Object
For Each cell In Selection.Cells
cell.Value = DateClicked
Next cell
Unload Me
End Sub
Private Sub UserForm_Initialize()
If IsDate(ActiveCell.Value) Then
Me.MonthView1.Value = ActiveCell.Value
End If
End Sub
When I use this code in AddIn then I have problem in this code that part is Bold.Please tell me why