Convert a string to a value does not work

[most]

Why does this not work?
According to the internet I could use Val() to convert a string to a value.

Sub GotoColumn() Dim x As String
 x = InputBox("Goto column...")
    If IsNumeric(x) = False Then x = Range(x & 1).Column
  x = Val(x)
  Cells(1, x).Activate
End Sub

The script should activate a specific column depending on if you enter a number or a column letter.

 

[MickG]

Try:-

Sub GotoColumn()
Dim x As Variant
 x = InputBox("Goto column...")
    If IsNumeric(x) = False Then
        x = Range(x & 1).Column
    Else
        x = Val(x)
    End If
  Cells(1, x).Activate
End Sub