Preselect the tag on the Month View sheet if there's only one.

Master Template.xlsm_EXPORTS/fpvt.frm

@@ -77,8 +77,14 @@ Private Sub butCancel_Click()
 End Sub
 
 Private Sub cbGoSheet_Click()
-    shMonthView.Range("MonthComment").Value = ""
+    Dim tags
+    tags = RangeToArray(shConfig.ListObjects("TAGS").DataBodyRange)
+    If UBound(tags, 1) = 1 Then
+        shMonthView.Range("MonthTag").Value = tags(1, 1)
+    Else
         shMonthView.Range("MonthTag").Value = ""
+    End If
+    shMonthView.Range("MonthComment").Value = ""
     shMonthView.Range("QtyPctChange").Value = 0
     shMonthView.Range("PricePctChange").Value = 0
     shMonthView.Visible = xlSheetVisible