Sub End Function While Wend Dim For Step Next If Then Endif Else Elseif Open As Input Or And Not Select Case Goto Close