object doesn't support this property or method

I want to write the data without opening the excel file, but when i try to get the columns and rows, "object doesn't support this property or method"
I want use to TR and TC to find and locate the rows and columns, but error from there, any idea?

Application.ShowWindowsInTaskbar = False
Workbooks.Open (ThisWorkbook.Path & Application.PathSeparator & "WSO_Record.xls")
ThisWorkbook.Activate
Application.ScreenUpdating = False
With Workbooks("WSO_Record.xls")
TR = Application.Match("Work ID", .Rows(1), 0)
TC = Application.Match("P12", .Columns(1), 0)
.Sheets("Record").Cells(TC, TR) = ThisWorkbook.Worksheets("Sheet1").Range("A1")
.Save
.Close
End With
Application.ShowWindowsInTaskbar = True
Application.ScreenUpdating = True

Write to WSO.zip



Moderator's Note: Welcome to the forum, you have to put code tags around codes. Select the code then hit the "#". I'll do it for now. Thank you.