kunguito
05-14-2008, 07:08 AM
I want the format of Range1 copied in Range2.
Assume they are the same size.
Private Sub CopiarFormato(ex As Excel.Application, Rg1 As Excel.Range, ByRef Rg2 As Excel.Range)
Rg1.Copy
Rg2.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ex.CutCopyMode = False
End Sub
It doesn't work. Any suggestions?
Does anybody know the reason for:
ex.CutCopyMode = False
Thanks!
Assume they are the same size.
Private Sub CopiarFormato(ex As Excel.Application, Rg1 As Excel.Range, ByRef Rg2 As Excel.Range)
Rg1.Copy
Rg2.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ex.CutCopyMode = False
End Sub
It doesn't work. Any suggestions?
Does anybody know the reason for:
ex.CutCopyMode = False
Thanks!