VBA to clear multiple cells

[andrewb90]

My in-expertise at VBA seems to have caught up with me. As I tried to edit this, it seems all I've done is make it do nothing...

Here's my code:

Sub clear()    Dim objColorStop As ColorStop
    Dim mySelect As Range
    Dim myOthershtRng As Range




    Set mySelect = ActiveSheet.Range(Selection.Address)
    Set myOthershtRng = Sheets("Scheduler").Range(Selection.Address).Offset(-85, -2)
Application.ScreenUpdating = False
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
Sheets("RO").Visible = True
Sheets("RO").Select
With myOthershtRng.ClearContents
End With
Sheets("Scheduler").Select
Application.ScreenUpdating = True
'Sheets("RO").Visible = False
Sheets("Scheduler").Select
Range("R1").Select
'Call RTO
End Sub

What the code should do:
Is clear the currently selected cells, then clear the matching cells on the "RO" sheet. The cells are offset (-85,-2)

 

[My Aswer Is This]

Try this:

Sub Clear_Selection()
Selection.ClearContents
Sheets("RO").Range(Selection.Address).ClearContents
End Sub

 

[andrewb90]

Where would I add:

[COLOR=#333333].Offset(-85, -2)[/COLOR]

 

[My Aswer Is This]

You said:
What the code should do:
Is clear the currently selected cells, then clear the matching cells on the "RO" sheet.

Why do you need :
Offset(-85, -2)

 

[andrewb90]

Because the cells do identically match up. If I clear cells E89:F89 on the current sheet, then on "RO" I would need C4:D4 cleared.

 

[My Aswer Is This]

Try this:

Sub Clear_Selection()
Selection.ClearContents
Sheets("RO").Range(Selection.Address).Offset(-85, -2).ClearContents
End Sub

 

[andrewb90]

perfect! thank you!

 

[My Aswer Is This]

Glad I was able to help you. Come back here to Mr. Excel next time you need additional assistance.

perfect! thank you!