Sub TestEvaluateVBA3_n1n2n3()
Dim RangeH3H4 As Range, RangeB3B4 As Range, RangeC3C4 As Range, RangeD3D4 As Range
Set RangeH3H4 = Range("H3:H4")
Set RangeB3B4 = Range("B3:B4")
Set RangeC3C4 = Range("C3:C4")
Set RangeD3D4 = Range("D3:D4")
RangeH3H4 = Evaluate(" " & RangeB3B4.Address & " " & "&"" ""&" & " " & RangeC3C4.Address & "" & "&"" ""&" & "" & RangeD3D4.Address & "")
End Subface=Calibri>Sub TestEvaluateVBA3_n1n2n3()
Dim RangeH3H4 As Range, RangeB3B4 As Range, RangeC3C4 As Range, RangeD3D4 As Range
Set RangeH3H4 = Range("H3:H4")
Set RangeB3B4 = Range("B3:B4")
Set RangeC3C4 = Range("C3:C4")
Set RangeD3D4 = Range("D3:D4")
RangeH3H4 = Evaluate(" " & RangeB3B4.Address & " " & "&"" ""&" & " " & RangeC3C4.Address & "" & "&"" ""&" & "" & RangeD3D4.Address & "")
End Sub
Stop
' ************************************************** *********************
Dim Barn As String ' To put this years harvest in: Just a long string with variable values in it
Let Barn = "slProjectNameName is " & slProjectNameName & vbCrLf & _
"slModuleName is " & slModuleName & vbCrLf & _
"slProcedureName is " & slProcedureName & vbCrLf & _
"lnglCurrentModuleLine is " & lnglCurrentModuleLine & vbCrLf & _
"lnglModuleProcStartLine is " & lnglModuleProcStartLine & vbCrLf & _
"lnglProcCountLines is " & lnglProcCountLines & vbCrLf & _
"lnglModuleProcEndLine is " & lnglModuleProcEndLine
MsgBox Title:="Harvesting stuff", Prompt:="I harvested this stuff. Its in my Barn:" & vbCrLf & vbCrLf & Barn
End Sub
Dim Barn As String ' To put this years harvest in: Just a long string with variable values in it
Let Barn = "slProjectNameName is " & slProjectNameName & vbCrLf & "slModuleName is " & slModuleName & vbCrLf & "slProcedureName is " & slProcedureName & vbCrLf & "lnglCurrentModuleLine is " & lnglCurrentModuleLine & vbCrLf & "lnglModuleProcStartLine is " & lnglModuleProcStartLine & vbCrLf & "lnglProcCountLines is " & lnglProcCountLines & vbCrLf & "lnglModuleProcEndLine is " & lnglModuleProcEndLine
Debug.Print "I harvested this stuff. Its in my Barn:" & vbCrLf & vbCrLf & Barn
Stop
' ************************************************** *********************
MsgBox Title:="Harvesting stuff", Prompt:="I harvested this stuff. Its in my Barn:" & vbCrLf & vbCrLf & Barn
End Sub
Bookmarks