Sistema de turnos en agencia bancaria por medio de macro

Hola dante te explico mi situacion, yo estaba desarrrollando un sistema de turnos para el area de caja, es decir que las cajeras al dar click a un boton en excel puedan ir generando un numero correlativo y llamar al cliente en base a ese numero, asi les aparece:

Prepare 6 hojas en un mismo libro esta manera y una hoja mas que se llama controlador 

La hoja controlador es la que se va mostrar al publico para que ellos puedan guiarse y ver que numeros estan siendo asignados segun el turno, el problema con el que me tope fue que cuando lo puse en red, es decir el mismo libro compartido para todas las cajeras (con la opcion que pueda ser modificado por multiples usuarios), no se pueden ver al instante el cambio en los numeros, se tiene que cerrar el archivo y volverlo abrir para visualizar los cambios y como usted comprendera no es nada practico hacerlo en una agencia de esa manera, por lo que me habian dicho que utilizara una macro para actualizar todos los demas archivos pero no supe entender yo no soy tan avanzado en esto mi nivel es basico, mi pregunta es posible hacer lo que yo quiero??? O tengo que buscar otras alternativas que no sean macros en excel???... Ayuda por fa te dejo los codigos que utilice

Sub Asignar_numero_cajero_1()

Dim WBK As Workbook
Dim NUM As Worksheet
Set WBK = ThisWorkbook
Set NUM = WBK.Sheets("controlador")
Dim cont1 As Range

Set cont1 = NUM.[i4]
cont1 = cont1 + 1

Worksheets("CONTROLADOR").Range("b4").Value = Worksheets("CONTROLADOR").Range("i10").Value

End Sub
Sub Asignar_numero_cajero_2()

Dim WBK As Workbook
Dim NUM As Worksheet
Set WBK = ThisWorkbook
Set NUM = WBK.Sheets("controlador")
Dim cont2 As Range

Set cont2 = NUM.[i5]
cont2 = cont2 + 1

Worksheets("CONTROLADOR").Range("b5").Value = Worksheets("CONTROLADOR").Range("i10").Value

End Sub
Sub Asignar_numero_cajero_3()

Dim WBK As Workbook
Dim NUM As Worksheet
Set WBK = ThisWorkbook
Set NUM = WBK.Sheets("controlador")
Dim cont3 As Range

Set cont3 = NUM.[i6]
cont3 = cont3 + 1

Worksheets("CONTROLADOR").Range("b6").Value = Worksheets("CONTROLADOR").Range("i10").Value

End Sub
Sub Asignar_numero_cajero_4()

Dim WBK As Workbook
Dim NUM As Worksheet
Set WBK = ThisWorkbook
Set NUM = WBK.Sheets("controlador")
Dim cont4 As Range

Set cont4 = NUM.[i7]
cont4 = cont4 + 1

Worksheets("CONTROLADOR").Range("b7").Value = Worksheets("CONTROLADOR").Range("i10").Value

End Sub

Sub Asignar_numero_cajero_5()

Dim WBK As Workbook
Dim NUM As Worksheet
Set WBK = ThisWorkbook
Set NUM = WBK.Sheets("controlador")
Dim cont5 As Range

Set cont5 = NUM.[i8]
cont5 = cont5 + 1

Worksheets("CONTROLADOR").Range("b8").Value = Worksheets("CONTROLADOR").Range("i10").Value
End Sub

Sub Asignar_numero_DPF()

Dim WBK As Workbook
Dim NUM As Worksheet
Set WBK = ThisWorkbook
Set NUM = WBK.Sheets("controlador")
Dim cont6 As Range

Set cont6 = NUM.[i9]
cont6 = cont6 + 1

Range("b9").Value = Range("i10").Value

Worksheets("CONTROLADOR").Range("b9").Value = Worksheets("CONTROLADOR").Range("i10").Value

End Sub

En la hoja "controlador" solo use un sumador de los clicks para sacar el numero en turno, cada push que dan las cajeras lo van contando en la casilla "i" de la misma hoja" controlador"