Object required Run-time error '424'

[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?

 

[Gary''s Student]

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

 

[Phil Hibbs]

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.

 

[Jacob Skaria]

Try
Application.ActiveCell.Offset(0, cCol) = ctl.Text

If this post helps click Yes

 

[Ayo]

Thanks.

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