It looks ok.
If you haven't deleted the line and retyped it to insure thare aren't any
hidden code in the line, please try that.
You can also try to just select cell H4 and see if that works.
Another possibility is that Sheet 2 is protected. and won't let you select
becasue of that.

"Louisville Cardinals" wrote:

I have the following code to convert a colum to text then copy the new
information to sheet 2. I keep getting an error message that says "Select
Method of Range Class Failed" on the line "Range("H4:S22").Select".

Range("D52:D102").Select
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("D52"),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(14, 1), Array(21, 1), Array(27,
1), Array(32, 1), _
Array(38, 1), Array(43, 1), Array(45, 1), Array(47, 1), Array(49,
1), Array(51, 1), Array( _
53, 1), Array(55, 1), Array(57, 1), Array(59, 1), Array(61, 1),
Array(63, 1)), _
TrailingMinusNumbers:=True
Range("R4:AC22").Select
Selection.Copy
Sheets("Sheet2").Select
Range("H4:S22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True