I’m trying to PRINT a range in Excel to NotePad using the following code:
Sub Macro1()
oData = Range(“A1:H6”)
ErrMsg = ErrMsg & oData
Open “Error.Log” For Output As #1
Print #1, ErrMsg
Close #1
rtn = Shell(“notepad.exe Error.Log”, vbNormalFocus)
End Sub
It seems it would be as simple as copy/paste to NotePad. I intend to to cycle through the code a number of times thus having various ranges appear in the NotePad represented by the “Error.Log”
Any assistance would be appreciated.
Thanks,
John