Greetings,

I have a macro that I am using to swap the contents of two cells. When I
use it I lose any character formatting that I have applied to the cell(s).
Does anyone have any insights into how to do a swap cell macro but retain
the formatting?

Sub SwitchCells()
'
' Macro created 4/13/2007 by willis

Range("k13") = Range("g13")
Range("g13") = Range("b13")
Range("b13") = Range("k13")
Range("k13") = ""
End Sub

Best regards!
Jeff

use Copy:

Sub jeff()
Dim rk As Range
Dim rg As Range
Dim rb As Range
Set rk = Range("K13")
Set rg = Range("G13")
Set rb = Range("B13")
rg.Copy rk
rb.Copy rg
rk.Copy rb
rk.Clear
End Sub

--
Gary''s Student - gsnu200715

Jeff,

maybe something like this

Sub SwitchCells()

Range("G13").Copy Range("K13")
Range("B13").Copy Range("G13")
Range("K13").Copy Range("B13")
Range("K13").ClearFormats
Range("K13").ClearContents

End Sub



--
Hope that helps.

Vergel Adriano


"JEFF" wrote:

> Greetings,
>
> I have a macro that I am using to swap the contents of two cells. When I
> use it I lose any character formatting that I have applied to the cell(s).
> Does anyone have any insights into how to do a swap cell macro but retain
> the formatting?
>
> Sub SwitchCells()
> '
> ' Macro created 4/13/2007 by willis
>
> Range("k13") = Range("g13")
> Range("g13") = Range("b13")
> Range("b13") = Range("k13")
> Range("k13") = ""
> End Sub
>
> Best regards!
> Jeff
>
>
>

Thank you very much!

I have merged cells that I am working with. In this case I assume I have to
unmerge first before I swap. Does anyone have any advice?

<snip>
Range("B13").MergeCells = False
</snip>

Thanks!

"Vergel Adriano" <(E-Mail Removed)> wrote in message
news:085350D0-8D7D-4F91-B20F-(E-Mail Removed)...
> Jeff,
>
> maybe something like this
>
> Sub SwitchCells()
>
> Range("G13").Copy Range("K13")
> Range("B13").Copy Range("G13")
> Range("K13").Copy Range("B13")
> Range("K13").ClearFormats
> Range("K13").ClearContents
>
> End Sub
>
>
>
> --
> Hope that helps.
>
> Vergel Adriano
>
>
> "JEFF" wrote:
>
>> Greetings,
>>
>> I have a macro that I am using to swap the contents of two cells. When I
>> use it I lose any character formatting that I have applied to the
>> cell(s).
>> Does anyone have any insights into how to do a swap cell macro but retain
>> the formatting?
>>
>> Sub SwitchCells()
>> '
>> ' Macro created 4/13/2007 by willis
>>
>> Range("k13") = Range("g13")
>> Range("g13") = Range("b13")
>> Range("b13") = Range("k13")
>> Range("k13") = ""
>> End Sub
>>
>> Best regards!
>> Jeff
>>
>>
>>