Object required Run-time error '424'

  • Thread starter Thread starter Ayo
  • Start date Start date
A

Ayo

I am getting the above error on the line of code:
Application.ActiveCell.Offset(0, cCol).Text = ctl.Text

and I am not sure what I am doing wrong. Any ideas?
 
Text is read-only. How about:

Sub qwerty()
Dim stl As Range, cCol As Integer
Set ctl = Range("A1")
cCol = 0
Application.ActiveCell.Offset(0, cCol).Value = ctl.Text
End Sub
 
Ayo said:
I am getting the above error on the line of code:
         Application.ActiveCell.Offset(0, cCol).Text = ctl.Text

and I am not sure what I am doing wrong. Any ideas?

What's the value of cCol? One of the functions is returning a null
object. Try breaking it up and see which one fails:

Dim Thing As Object
Set Thing = Application
Set Thing = Application.ActiveCell
Set Thing = Application.ActiveCell.Offset(0, cCol)
Set Thing = Application.ActiveCell.Offset(0, cCol).Text
Set Thing = ctl.Text

Phil Hibbs.
 
Thanks.

Gary''s Student said:
Text is read-only. How about:

Sub qwerty()
Dim stl As Range, cCol As Integer
Set ctl = Range("A1")
cCol = 0
Application.ActiveCell.Offset(0, cCol).Value = ctl.Text
End Sub
 
Back
Top