VBS Select Column from ActiveCell

[Krothos]

I'm hoping you can help me with the following script:

Sub BootsSpeed()

Dim mycell
mycell = ActiveCell.Address

Range("S34").Value = "Boots of Speed - Venitt"
Range("T34").Value = "x"
Range("U34").Value = Range("U" & (ActiveCell.Row))
If Range("Characters!AU10").Value = "" _
    Then Range(ActiveCell.Column & "34").Value = 1 _
    Else Range(ActiveCell.Column & "34").Value = Range("Characters!AU10") + 1

Call Sort_Combat

Range(mycell).Offset(1, 0).Select

End Sub

My issue is with the IF statement where I'm trying to enter a value into same column as the active cell, yet on row 34. I keep getting an error "Method 'Range' of object '_Global' failed", where it highlights the ELSE line when I select Debug. The rest of the code works as expected when I comment out the IF/THEN/ELSE commands.

 

[Fluff]

Try it like

Cells(34, ActiveCell.Column )

 

[steve the fish]

You need:

Cells(34, ActiveCell.Column)

 

[Krothos]

Thank you!

 

[Fluff]

Glad we could help & thanks for the feedback.