Dim strValue As String
With Me.TabCtl14 ' Replace with the name of your tab control
strValue = .page(.value).Caption
End With
Select Case strValue
Case "Tab Page Name Here"
'Enter your code here.
Case "Tab Page Name Here"
'Enter your code here.
Case Else
End Select