add button to drop to worksheet

fpvt.frm

@@ -22,6 +22,7 @@ Private mline As Integer
 Private clear_lb As Boolean
 Private load_tb As Boolean
 Private set_Price As Boolean
+Private sp As Object
 
 Private bVol As Double
 Private bVal As Double
@@ -96,6 +97,13 @@ Private Sub butMCancel_Click()
 
 End Sub
 
+Private Sub cbGoSheet_Click()
+
+    Me.Hide
+    Sheets("month").Select
+
+End Sub
+
 Private Sub lbMonth_Change()
 
     If clear_lb Or load_tb Then Exit Sub
@@ -277,7 +285,6 @@ End Sub
 
 Private Sub UserForm_Activate()
     
-    Dim sp As Object
     Dim i As Long
     Dim j As Long
     Dim k As Long
@@ -359,7 +366,7 @@ Private Sub UserForm_Activate()
     month(0, 8) = "2020 val"
     
     Me.crunch_array
-     
+    Call handler.month_tosheet(month)
     Application.StatusBar = False
     
 End Sub