Sub CreateEviewsPrg()

Dim ItemName, nameoffile As String
Dim stufftocopy As Variant
Dim fso, oFile As Object
Dim crange, c, loc As Range

'Set folder = Sheets("Parameters").Range("C9").Value

With Worksheets("Prg_xSc")

            nameoffile = .Cells(1, 1).Value
            Set crange = Range(.Cells(1, 2).Value) 
            Set stufftocopy = crange
            Set c = stufftocopy
            ItemName = ItemName + c.Text + vbCrLf
                
            Set fso = CreateObject("Scripting.FileSystemObject")
            Set oFile = fso.CreateTextFile("\\xxx\Eviews\" + CStr(nameoffile) + ".prg")

            oFile.WriteLine CStr(ItemName) 'ERROR HERE: "invalid use of Null”

            oFile.Close
            Set fso = Nothing
            Set oFile = Nothing
            

End With




End Sub