H
Helmut
I am using the following:
-----------------------------------------
Sheets("MESSER").Visible = True
Sheets("MESSER").Select
ActiveSheet.Unprotect
Range("ú_æ").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
Dim Message, Title, Default, MyValue
Message = "ä÷ìã îñôø ùåøä à çøåðä" ' Set prompt.
Title = "" ' Set title.
Default = "F14:K???" ' Set default.
' Display message, title, and default value.
MyValue = InputBox(Message, Title, Default)
Range(MyValue).Select
Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Range("ú_æ").Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("MESSER").Visible = False
Sheets("START").Select
-----------------------------------------
Sheets("MESSER").Visible = True
Sheets("MESSER").Select
ActiveSheet.Unprotect
Range("ú_æ").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
Dim Message, Title, Default, MyValue
Message = "ä÷ìã îñôø ùåøä à çøåðä" ' Set prompt.
Title = "" ' Set title.
Default = "F14:K???" ' Set default.
' Display message, title, and default value.
MyValue = InputBox(Message, Title, Default)
Range(MyValue).Select
Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Range("ú_æ").Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("MESSER").Visible = False
Sheets("START").Select