Este código sirve para que salga un mensaje de error si no se introduce nada en según qué celdas.
Necesito que se marque en rojo esas mismas celdas para que los que introduzcan la información les sea mas fácil de ver qué celdas son. ¿Alguna idea?
On Error Resume Next
existe = False
For Each C In Range("B9:AD10,AE9,AE10,AE11,AA11,W11,S11,M11,I11,F11,D11,B11,B12:AD12,AE12,AE13,B13:AD13,N14,AE14,AE15,B15:AD15,I16,J16,AE16,W17,B17")
If C.Value = "" Then
celdas = celdas & " " & C.Address(False, False)
existe = True
End If
Next
If existe Then
celdas.Interior.Color = vbRed '(esta es la forma en la que lo he intentado)
MsgBox "Falta informacion en las celdas : " & celdas
Exit Sub
End If