Ayuda

Recién vuelto de mi fin de semana, vi tu consulta.
Si la entendí correctamente tu pedido, la siguiente macro modificada, hace lo que requieres desde cualquier hoja que tengas seleccionada:
Private Sub Aceptar_Click()
Dim c As Range 'faltaba
With Worksheets("SalMin").Range("A:A")
Set c = .Find(what:=txtano, LookIn:=xlFormulas)
End With 'faltaba
If Not c Is Nothing Then
'Range(c.Address).Select ' anulé, porque estás instruyendo que seleccione la celda donde encontró el dato.
s = MsgBox("Este año ya ha sido capturado, Deseas Modificarlo?", vbYesNo + vbQuestion, "Opción")
If s = vbYes Then
Aceptar.Visible = False
'(AQUÍ) estas instrucciones, leen desde la celda donde encontró el año los datos en las columnas subsiguientes hacia la derecha
'como parecía que hacía tu macro:
txtano = c.Offset(0, 0).Value
txtZonaA = c.Offset(0, 1).Value
txtZonaB = c.Offset(0, 2).Value
txtZonaC = c.Offset(0, 3).Value
Modificar.Visible = True
End If
End If
Set c = Nothing 'faltaba
End Sub
Notarás que le agregué una serie de comentarios a aquellos comandos que tuve que agregar, modificar o anular.
Básicamente, el problema estaba en que con:
Range(c.Address).Select
Estás seleccionando la celda (y la hoja) donde encontró lo que buscaba.
Anulé esa instrucción y uso la referencia del rango donde encontró el dato ("c") para tomar las celdas que se encuentren a su derecha y cargarlas en las variables que indicaste.
Notarás que en ningún momento de la ejecución de la macro se produce selección de hoja o celda alguna.
Pruébalo y dime si es lo que buscabas.
Un abrazo!
Fernando