Macro que funcione en cualquier hoja y no solo en la indicada

Buenos días, amigos esta pregunta es "fácil de resolver" pero he intentado varias cosas y nada,,, bueno he estado trabajando en una programación con macros y vb,, y tengo esta línea de código pero solo se ejecuta en el nombre de la hoja me gustaría que se pueda ejecutar en cualquiera gracias...
Private Sub Aceptar_Click()
With Sheets("Productos")
.Range("A" & 18 + Range("M2").Value).Value = Val(ID)
.Range("F" & 18 + Range("M2").Value - 1).Value = Pago.Value
.Range("H" & 18 + Range("M2").Value - 1).Value = Capital.Value
.Range("I" & 18 + Range("M2").Value - 1).Value = Judicial.Value
.Range("J" & 18 + Range("M2").Value - 1).Value = Fondo.Value
End With
End Sub

Como ven solo se puede ejecutar en la hoja "Productos",,, como haría para que se ejecute en cualquier hoja,, muchas gracias