I'm assuming this is a macro which I am not very familiar with. But, I copy
and pasted what you type into my workbook. Was anything supposed to change?

"Carim" wrote:

Hi,

For a start and to be adjusted to your specific needs ...

Sub Dependents()
ActiveCell.Copy
ActiveCell.Dependents.Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

HTH
Cheers
Carim