...e_029...


Input the row number
The row will be highlighted
Sub Highlight()
 Dim i As Integer
 i = InputBox("Zeile eingeben")
 Cells(i, 1).EntireRow.Interior.ColorIndex = 19
End Sub

by Bernd Held