HTML and COde Tags again

[DocAElstein]

Sub TestEvaluateVBA2_n1n2n3()Range("H3:H4") = Evaluate("**" & Range("B3:B4").Address & "** " & "&""****""&" & "**** " & Range("C3:C4").Address & "" & "&""****""&" & "" & Range("D3:D4").Address & "")End Sub

[CODE]Sub TestEvaluateVBA2_n1n2n3()
Range("H3:H4") = Evaluate("**" & Range("B3:B4").Address & "** " & "&""****""&" & "**** " & Range("C3:C4").Address & "" & "&""****""&" & "" & Range("D3:D4").Address & "")

Sub VBAOnErrorResumeNext()
 On Error Resume Next
Dim TNominator As Long, RslTwat As Long
' Other Code
 Let TNominator = 0
 Let RslTwat = 10 / TNominator ' This will error because of an attempt to divide by zero
 MsgBox Err.Number & " " & Err.Description ' This does give infomation despite that the  exception has been cleared.. wierd and not as one might have expected.
' other code
Dim Rng As Range
 Let Rng.Value = "Anyfink" ' This line should error as we have not assigned any object to rng. ( We cannot therefore asssing a Value to a non existing range
 MsgBox Err.Number & " " & Err.Description
' 0ther code
End Sub