Compile error

[Steved]

Hello from Steved
I am getting
Compile error:
Expected Identifier

Sub
For x = 1 To 9
Cells(x, 1).Value = x & "-" & Cells(x, 1).Value
Next x
End Sub

Please help me I am trying my best to learn

Thankyou.

 

[steveB]

Steve,

Worked when I gave the Sub a name, and declared the variable x
''''''''''''''''
Sub test()
Dim x As Long
For x = 1 To 9
Cells(x, 1).Value = x & "-" & Cells(x, 1).Value
Next x
End Sub
'''''''''''''''''''
hth

 

[Steved]

Hello SteveB
Thankyou.

Now that it is working I would like to make a change,
as I have over 5000 rows.
Using your code would it be possible to customize it.
Col A , Col B, Col C the columns I use
Col A is only the column that requires the code to work in.

What I require it to do is as laid out below please.
Col A

City Change this to 1-City
Roskill Change this to 2-Rosk
Papakura Change this to 3-Papa
Wiri Change this to 4-Wiri
North Shore Change this to 5-Shor
Orewa Change this to 6-Orew
Swanson Change this to 7-Swan
Panmure Change this to 8-Panm
Waiheke Change this to 9-Waih

The issue is that any of the above could be anywhere in
Col A.

Thankyou.

 

[Steved]

I have reposted this, please refer to the new posting.

Thankyou.

 

[David Benson]

Steved,

You need to give your subroutine a name -- that's the identifier the
compiler is looking for.

Sub MyRoutine()
....

By the way, you don't need the ".Value" on the right side of the equation.
This will work just as well, and may help you avoid problems in some
situations:

Cells(x, 1) = x & "-" & Cells(x, 1).Value

Good luck!

-- David