Error al llamar a una macro

hola tengo una macro que funciona bien pero al momento de llamarla desde otro libro me sale el siguiente error 1004 referencia no valida 

aqui mi codigo

Private Sub CommandButton1_Click()
On Error GoTo error4
If OptionButton1 Then
ActiveCell.FormulaR1C1 = "10000"
Range("g32").GoalSeek goal:=((Cálculo_Precio.TextBox1.Value) / 100),

(aqui sale error al depurar)