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

 

[Fluff]

Why not just put the code into a separate sub & then call it from both buttons?

 

[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

Why not just put the code into a separate sub & then call it from both buttons?

I need it to just be called from the CommandButton on Sheet1. I ran it from Sheet5 just to make sure the code works. I am new to VBA so not sure how to do certain code

 

[Fluff]

In that case get rid of the button on sheet5 & put the code into the button on sheet1

 

[scubadivingfool]

In that case get rid of the button on sheet5 & put the code into the button on sheet1

The actually macro code i am using is listed below and not actually sure how to write this into the macro on Sheet1 with the CommandButton

Option Explicit

Private Sub FilterColorToRed()
'
' FilterColorToRed12 Macro
'

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

End Sub

 

[Fluff]

How about

Private Sub FilterColorToRed()
'
' FilterColorToRed12 Macro
'

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

End Sub

 

[scubadivingfool]

How about

Private Sub FilterColorToRed()
'
' FilterColorToRed12 Macro
'

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

End Sub

Is this in the CommandButton?

 

[Fluff]

Yes, that's right.

 

[scubadivingfool]

Yes, that's right.

Sorry, getting confused here. How does the command button know to call this code?

 

[Fluff]

You put the code in the command button click event.