VBA MOD01 GoTo Statement

 GoTo Statement


Sub Simple_GoTo()

Range("D3").Value = ""

If VBA.IsError(Range("B3").Value) Then GoTo GetOut

Range("C3").Value = Range("B3").Value

 Exit Sub

 GetOut:

    Range("D3").Value = "you have an error in the cell"

    Range("C3").Value = ""

   End Sub





Comments