John Davis
Well-known Member
- Joined
- Sep 11, 2007
- Messages
- 3,457
Hello All:
I'm trying to put together the following routine. I get an error message subscript of of range on the line with Range("E20"). Any help would be appreciated.
Sub TSCA()
Dim vResult As String
vResult = MsgBox("Is there a TSCA required?", vbYesNo)
If vResult = vbYes Then Workbooks.OpenText Filename:="D:\Common\data\excel\OCEAN-TSCA.xls", Origin _
:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
Range("E20") = Windows("DLY-LOGISTICS.xls")(Range("G5000") & Range("H5000")) '
Windows("OCEAN-TSCA.xls").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
If vResult = vbNo Then Exit Sub
End Sub
I'm trying to put together the following routine. I get an error message subscript of of range on the line with Range("E20"). Any help would be appreciated.
Sub TSCA()
Dim vResult As String
vResult = MsgBox("Is there a TSCA required?", vbYesNo)
If vResult = vbYes Then Workbooks.OpenText Filename:="D:\Common\data\excel\OCEAN-TSCA.xls", Origin _
:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
Range("E20") = Windows("DLY-LOGISTICS.xls")(Range("G5000") & Range("H5000")) '
Windows("OCEAN-TSCA.xls").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
If vResult = vbNo Then Exit Sub
End Sub