Deleting/Clear Contents in Another column on Same row of Worksheet Change Event

[USFengBULLS]

Hello,
I am trying to have contents in a cell in column 9 (Column I) to delete once the user selects SUBMITTED from a in cell drop down list over in column L.
Once the user selects SUBMITTED it needs to delete the contents in Column I or 9 on that same row.
I have this working for when it calls other subs but I need help on finishing the Public Sub SUBMITTED at the bottom of this post.


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("L:L")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
Select Case Target.Value
Case "SUBMITTED": Call SUBMITTED(Target.Row)
Case "APPROVED - FV Req.": Call APPROVED(Target.Row)
Case "APPROVED - NO FV Req.": Call APPROVED(Target.Row)
Case "RESUBMITTED": Call REVISED(Target.Row)
End Select
End If
End Sub


Public Sub SUBMITTED(trow As Double)


Range(Cells(trow, 9)).ClearContents


End Sub

 

[DanteAmor]

What is the problem you have with the Public Sub SUBMITTED code?

 

[USFengBULLS]

Getting a run-time error 1004
Method 'Range' of object'_Global' Failed

Just need it to delete/clear the contents of the cell in that column I or 9 of the same row that they just changed to Submitted in the drop down list of Column L.
So if in cell L13 they just changed to Submitted, the contents in Cell I13 needs to be deleted or set to Blank ""

 

[Fluff]

Try

Cells(trow, 9).ClearContents

 

[USFengBULLS]

Yes, That worked. I knew it was something simple.
Thanks Fluff

 

[Fluff]

You're welcome & thanks for the feedback

 

[DanteAmor]

Or

Public Sub SUBMITTED(trow As Double)
    Range("I" & trow).ClearContents
End Sub