CommandButton wont work calling another sheet

[scubadivingfool]

Looking at using a CommandButton on Sheet1 that calls a macro that I have in Sheet5. When I run the macro straight from Sheet5 it works perfectly, but when I run it from the CommandButton on Sheet1 nothing happens. The code is listed below that I am using in the CommandButton to call the maro in Sheet5. I have also tried the Code without the "Public" and just calling the Sub but sill nothing works.

Public Sub FilterColorToRed()

Call Sheets("Sheet5").CommandButton3_Click
   
End Sub

 

[scubadivingfool]

You put the code in the command button click event.

Like in the following? I get an error code of "Expected End Sum"

Private Sub CommandButton3_Click()
   

 Private Sub FilterColorToRed()
'
' FilterColorToRed12 Macro
'

'
   
    Sheets("Sheet5").Range("$A$1:$G$634").AutoFilter Field:=1, Criteria1:=RGB(255, 0 _
        , 0), Operator:=xlFilterCellColor

 End Sub


End Sub

 

[Fluff]

Delete this line Private Sub FilterColorToRed() and one of the two End Sub

 

[scubadivingfool]

Delete this line Private Sub FilterColorToRed() and one of the two End Sub

Now when I run the code I get a "Subscript out of range" error

 

[Fluff]

Do you actually have a sheet called Sheet5?

 

[scubadivingfool]

Do you actually have a sheet called Sheet5?

Yes, Sheet 5 contains infomation that has colored cells. What I need is to filter out all the colors except for the red ones. The Sheet has been renamed to "PriceChange", but Sheet5 is still the primary name

 

[Fluff]

The Sheet has been renamed to "PriceChange"

In that case you do not have a sheet called sheet5, it's called "PriceChange"
You need to change the code accordingly.

 

[scubadivingfool]

In that case you do not have a sheet called sheet5, it's called "PriceChange"
You need to change the code accordingly.

ok, that works. Thanks for your help

 

[Fluff]

You're welcome & thanks for the feedback.