Quote Originally Posted by mduff
thank you very much I am sure it something simple but I can't seem to figure it out @ With Sheet1 in the line below
it gives a Compile error

Variable not defined



[vba] Set wks = wb.Worksheets("Alignment Score Summary")
If Not wks Is Nothing Then
With Sheet1 ' ThisWorkbook.Worksheets(1)
.Cells(.Rows.Count, "A").End(xlUp).Offset(1).Value = wks.Range("J5").Value
[/vba]

Any adtional help will be much apriceated

thanks!!!!
Sorry. You were using the worksheet's index, I just substituted with a sheet's codename for testing, but forgot to take it out. To fix:

With ThisWorkbook.Worksheets(1)
Mark