Esta es la cuestión tengo una lista en la "hoja 1", de esa lista deseo crear tantas hojas como nombres haya en esa lista, hasta aqui no hay problema tengo un macro que me hace exactamente eso, sino que cuando crea las hojas las nombra como en la lista y con el formato de la "hoja 2" ahora mi problema consiste en que la "hoja 2" tiene varias formulas en diferentes celdas las cuales se copian con éxito en las hojas creadas por el macro, pero como hago para hacer variaciones en esos códigos automaticamente por ejemplo si en la "hoja 2" celda "A3" tengo la siguiente formula =hoja1!AF11 como hago para que en las hojas que cree mi macro se modifique a =hoja1!AF12, y en la siguiente =hoja1!AF13 

aqui les dejo el código que estoy usando: 

Sub CopiarHojaFormato() 


Application.ScreenUpdating = False 
Dim celda As Range 
For Each celda In Worksheets("Nomina24h").Range("ai11:ai24")
Worksheets("1").Copy After:=Worksheets(Worksheets.Count) 
ActiveSheet.Name = celda 
Range("a1").Value = celda 
Next 

End Sub 

tambien me gustaria que se borren las hojas si se borran los nombres de la lista claro que esto es opcional 

espero haberme hecho entender 

Muchas gracias de antemano