Reports

Thank you for the reply but I have to change name of the function to run the script but even now that macro does nothing:

Sub Rw_to_col()
Dim stepvalue As String


stepvalue = InputBox("Set letter of columns per row")
If ColumnLetterToNumber(stepvalue) < ColumnLetterToNumber("m") Or 
ColumnLetterToNumber(stepvalue) > ColumnLetterToNumber("af") Then
MsgBox ("please enter column name between m to af")
Exit Sub
End If

Cells(1, ColumnLetterToNumber(stepvalue)).Select



'
End Sub

Function ColumnLetterToNumber(colLetters As String) As Long
Dim result As Long
result = 0
colLetters = UCase(colLetters)

For i = 1 To Len(colLetters)
    Dim currentChar As String
    currentChar = Mid(colLetters, i, 1)
    If currentChar < "A" Or currentChar > "Z" Then
        ColumnLetterToNumber = -1
        Exit Function
    End If
    result = result * 26 + (Asc(currentChar) - 64)
Next i
ColumnLetterToNumber = result
End Function

79451844