run time error on code -2147417848 (80010108)

Hi ive created the below code but get runtime error when it reaches the "Worksheets("EXPOSURE_REPORT_4_AA").UsedRange.Clear" line of code. Any ideas why
"

Sub Create_AA_Exposure()

Dim TGLASTROW As Long
Dim EXPLASTROW As Long

Worksheets("TRADING GROUPS").Select

TGLASTROW = Range("A" & Rows.Count).End(xlUp).Row

Worksheets("EXPOSURE_REPORT_4_AA").Select
Worksheets("EXPOSURE_REPORT_4_AA").UsedRange.Clear
Worksheets("joined").UsedRange.Copy
Worksheets("EXPOSURE_REPORT_4_AA").Select
ActiveSheet.Paste Range("A1")
Range("B2").Select
ActiveCell.EntireColumn.Insert
ActiveCell.Value = "TG Y/N"
ActiveCell.Offset(1, 0).Select

'lookup to Trading group table

ActiveCell.Formula = "=VLOOKUP(E3,'TRADING GROUPS'!$I$3:N514,6,0)"

'Range("N3").Formula = "=if(isna(VLOOKUP(A3,'OLD SHEET'!A$3:N$" & lastrow & ",14,0)),N,VLOOKUP(A3,'OLD SHEET'!A$3:N$" & lastrow & ",14,0))"

End Sub

ClearContents instead of Clear

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)