Select Case True Case UBound(Arr) = 0 Application.Run Arr(0) Case Arr(0) = "DisplayNameofTextBox" DisplayNameofTextBox ws, txtctl End Select
Select Case True Case UBound(Arr) = 0 Application.Run Arr(0) Case Arr(0) = "DisplayNameofTextBox" DisplayNameofTextBox ws, txtctl End Select