On Dec 8, 9:18*am, Jarek Kujawa wrote:
try:
Set Log = WrkBk.Sheets("Sheet1")

be sure not to put any dot at the end of the line

The sheet is not called Sheet1 it is sheet1 of the workbook that I am
opening. Here is all the code so you can see what I am trying to do.

Thanks,
Jay

Sub FirstMoveToQuoteSheet()
Dim Log As Worksheet
Dim WrkBk As Workbook
Dim QuoteNum As String
Dim Comp As String
Dim Desc As String
Dim Dt As Date
Dim Cont As String
Dim Opn As String
Dim QuoteRow As Long

Comp = Range("K1")
Desc = Range("I3")
Dt = Range("H1").Value
Cont = Range("K2")
QuoteNum = Range("H2")
Opn = "G:\New Items\Tracking Lists\" & Left(Range("H2"), 2) & _
" Quotation Tracking Log.xls"
Set WrkBk = Workbooks.Open(Opn)
Set Log = WrkBk.Sheets("Sheet1")
QuoteRow = Log.Range("A:A").Find(What:=QuoteNum,
LookIn:=xlValues).Row
Log.Range("B" & QuoteRow) = Comp
Log.Range("C" & QuoteRow) = Desc
Log.Range("D" & QuoteRow) = Dt
Log.Range("K" & QuoteRow) = Cont
WrkBk.Close Savechanges:=True
End Sub