Vba Code

[sumit madaan]

Hi,

I need to display the alphabatically letter from a to z through vba code. Can somebody help me out asap...

Thanks,,
Dear

 

[mikerickson]

Display them where? In a cell, one per cell or all in one or ??
This sounds like homework.
What have you tried? and what isn't it doing right?

 

[VoG]

Try

Sub alphabet()
Dim i As Long
For i = 65 To 90
    Cells(i - 64, 1).Value = Chr(i)
Next i
End Sub

 

[sumit madaan]

Thanx

 

[Rick Rothstein]

Another way ...

Sub alphabet()
  Range("A1:A26").Value = WorksheetFunction.Transpose(Split(StrConv("ABCDEFGHIJKLMNOPQRSTUVWXYZ", vbUnicode), Chr(0)))
End Sub

 

[sumit madaan]

Sub test()
Dim i As Long
For i = 65 To 70
If i = 65 Then
MsgBox (Chr(i) & " " & "Means" & " " & "Apple")
ElseIf i = 66 Then
MsgBox (Chr(i) & " " & "Means" & " " & "Ball")
ElseIf i = 67 Then
MsgBox (Chr(i) & " " & "Means" & " " & "cat")
ElseIf i = 68 Then
MsgBox (Chr(i) & " " & "Means" & " " & "Dog")
ElseIf i = 69 Then
MsgBox (Chr(i) & " " & "Means" & " " & "Elephent")
ElseIf i = 70 Then
MsgBox (Chr(i) & " " & "Means" & " " & "Fan")
Else
i = 0
End If
Next i
End Sub



Hi i am runing the above code and its work properly. But i need to add the picture with them. How can i do this....???? through code