Contenido de una celda en funcion del valor de otra

Hola

Tengo el "LibroB" con tres celdas nombradas "Num", "Logo1" y "Logo2", las
dos ultimas asociadas a casillas de verificación, lo que quiero hacer es que
al momento de seleccionar una o la otra o ninguna, en la celda "Num" se me
refleje un valor distinto, en el de "Logo1" sería el último valor utilizado
en la columna "A" del "LibroC" y en el caso de "Logo2" se abra un InputBox.

Lo tenía por formula, sin embargo, a veces es necesario cambiar éste número
y se pierde la formula. (Varias personas utilizamos el archivo en cuestión)

Gracias anticipadas por la ayuda.

Sub N()
If Sheets("Hoja1").Range("LOGO1") = True Then
Sheets("Hoja1").Range("Num") = [\\MR\C\Mis
documentos\BD\BDPL.xls.Range("R65536C1").End(xlUp)] + 1
ElseIf Sheets("Hoja1").Range("LOGO2") = True Then
Sheets("Hoja1").Range("Num") = NumeroR()
ElseIf Sheets("Hoja1").Range("LOGO1") = False And
Sheets("Hoja1").Range("LOGO2") = False Then
Sheets("Hoja1").Range("Num") = ""-""
Else

End If
End Sub
-
Function NumeroR() As String
NumeroR = Application.InputBox(prompt:="Número proporcionado por R? Formato
"" XX - XXXX / AA """, Type:=2)
End Function

... ...
Saludos
Mario Alberto