You can use the MultiPage's page value which starts at 0. If he first tab is for single 7 the second for multiples use
Option Explicit

Private Sub MultiPage1_Change()
    Select Case Me.MultiPage1.Value
        Case 0: Sheet1.Cells(16, 38).Value = "Single"
        Case 1: Sheet1.Cells(16, 38).Value = "Multiple"
        Case Else
    End Select
End Sub