izvinite za latin. esli ne len pozaluista obiasnite pochemu vilazit run-time error 1004, kogda funkcia vozvrachaet imia stranici s verxnim registrom. i kak vse ispravit. kod nize. zaranee spasibo vsem kto otzovetsia.

Sub stranici()
Dim ws As Worksheet, wb As Object, wbname As String
wbname = Application.InputBox(prompt:="vvedite imia knigi", Title:="vnosim informaciu")
Set wb = Application.Workbooks(wbname & "." & "xls")
For Each ws In wb.Worksheets
If ws.Name = "Sheet1" Then
ws.Name = registr(ws.Name)
ElseIf ws.Name = "Sheet2" Then
ws.Name = registr(ws.Name)
ElseIf ws.Name = "Sheet3" Then
ws.Name = registr(ws.Name)
End If
Next
End Sub

Public Function registr(ByVal str1 As String) As String
str1 = UCase(str1)
End Function

vse nashel oshibku:) ne nado zloupotrebliat kopirovaniem::):)