Make the DIM is correct and that Activate preceeds Select:

Sub dural()
Dim Column As Integer
Dim Detailed_Report As Worksheet
Set Detailed_Report = Sheets("Sheet1")
Column = 3
Detailed_Report.Activate
Columns(Column).Select
End Sub

--
Gary''s Student - gsnu200903


"William Wolfe" wrote:

I am running a VBA application and after I have copied data to a worksheet,
I want to copy the column formatting from column N to column N+1. The
following code, first line gives me a 'Select method of Range class failed'.
'Column' is an Integer number.

' Detail_Report.Columns(Column).Select
' Application.CutCopyMode = False
' Selection.Copy
' Detail_Report.Columns(Column + 1).Select
' Selection.PasteSpecial Paste:=xlPasteFormats

What am I doing wrong?

Thanks,