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!!!!