[RESOLVED] Select Method of Range Class failed Error?

[blakemckenna]

I keep getting the above error message on the following line of code:

      myXLWrkSheet.Columns("A:A").Select

Here is the rest of my code so it makes more sense.

            If aHit > 0 Then
                Set myXLWrkBook = GetObject(f2)

                Set myXLWrkSheet = myXLWrkBook.Worksheets(1)
                numCols = myXLWrkSheet.UsedRange.Columns.count
                numRows = myXLWrkSheet.UsedRange.rows.count
                strCol = "A" & numCols
                
                myXLWrkSheet.Columns("A:V").Select  ////// Error Msg Occurs here  \\\\\\\
                myXLWrkSheet.Columns("A:V").EntireColumn.AutoFit
                myXLWrkSheet.Rows("1:1").Select
            
                With myXLWrkSheet
                    .Name = "MS Sans Serif"
                    .Size = 8.5
                End With

                myXLWrkSheet.Selection.Font.Bold = True
                myXLWrkSheet.Columns("A:A").Select
                myXLWrkSheet.Selection.Insert Shift:=xlToRight
                myXLWrkSheet.Range("A2").Select
                myXLWrkSheet.ActiveCell.FormulaR1C1 = "=HYPERLINK(RC[14],RC[1])"
                myXLWrkSheet.Selection.Copy
                myXLWrkSheet.Range("B2").Select
                myXLWrkSheet.Selection.End(xlDown).Select
                myXLWrkSheet.Selection.End(xlToLeft).Select
                myXLWrkSheet.Range("A3:A4").Select
                myXLWrkSheet.Range("A4").Activate
                myXLWrkSheet.ActiveSheet.Paste
            Else
                myXLWrkSheet.Columns("A:V").Select
                myXLWrkSheet.Columns("A:V").EntireColumn.AutoFit
                myXLWrkSheet.rows("1:1").Select
            
                With myXLWrkSheet
                    .Name = "MS Sans Serif"
                    .Size = 8.5
                End With
                
                myXLWrkSheet.Range("A" & startrow & ":A" & stoprow).Copy
                myXLWrkSheet.Columns("A:V").Select
                myXLWrkSheet.Columns("A:V").EntireColumn.AutoFit
                myXLWrkSheet.rows("1:1").Select
                myXLWrkSheet.Selection.Font.Bold = True
            End If