I have the following code that every time it runs, it says "Subscript out of Range":
Private Sub Worksheet_Change(ByVal Target As Range)
If [b3] = "Susan" Then
Sheets(NSP - 73310).Visible = True
Sheets(NPR - 73111).Visible = True
Sheets(NTM - 73121).Visible...