How to copy format of a column using spin button

[Tyberian1988]

hello everybody! i'm a new member on this forum and a beginner in programming.I would like to know how to paste the format of column(a) in column(c),(d),(e)...etc using a spin button.I need an increment for the pasted format. Any help, please?


Here is a copy of my code:

Private Sub SpinButton1_SpinUp()

Columns("A").Select
Selection.Copy
Columns("C").Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

End Sub