Dim ID As String
With UserForm1.MultiPage1
.Value = IIf(ID = "util", 0, 1)
.Pages(0).Enabled = True
.Pages(1).Enabled = IIf(ID = "util", False, True)
.Pages(2).Enabled = IIf(ID = "util", False, True)
.Pages(3).Enabled = IIf(ID = "util", False, True)
.Pages(4).Enabled = True
End With