Переход по кнопке на другой лист

Sheets("Лист2").Select

Dim s1 As String ' ianyo
Dim s2 As String ' aia
Dim s3 As String ' aaoa
 
Function FileExists(fname) As Boolean
 
   On Error Resume Next
   FileExists = Dir(fname) <> vbNullString
   If Err.Number <> 0 Then FileExists = False
   On Error GoTo 0
 
End Function
 
 
Public Function Abcd() As String
 'aiaeec e ?aaioa n aua?aiiuie oaeeaie
 Set myD1 = Application.FileDialog(msoFileDialogFilePicker)
With myD1
      .AllowMultiSelect = False
      .Filters.Clear
      .Filters.Add "Oaeno", "*.txt", 1
      .FilterIndex = 1
      .InitialFileName = "F:\IT_praktika_XL\07\file.txt"
      .InitialView = msoFileDialogViewDetails
      .Show
      If (.SelectedItems.Count > 0) Then
      Abcd = .SelectedItems(1)
      Else
      Abcd = ""
      End If
   
End With
End Function
 
Public Sub Test()
tt = Abcd 'iaoiaei a tt ioou aaa ea?eo aie-o
ReadData (tt) 'niaa??eiia aie-oa caienuaaai a ia?aiaiiua
tt = U  'a ia?aiaiio? oo caienuaaai ianyo aia
Prov (tt) 'i?iaa?ea nou-y oaeie eieae
MsgBox tt 'auaiaeo eoaao nou-ao eee iao
'o-oey,eio nicaaao iiao? eieao eiie?oy oaaeii
   Dim q As Boolean
   q = True
   Set fso = CreateObject("scripting.filesystemobject")
If FileExists(tt) = False Then
 
q = fso.CopyFile("F:\IT_praktika_XL\07\shablon.xls", tt)
End If
MsgBox "Sozdana_kniga"
q = False
 
Dim element1 As Workbook 'nicaaaony iiaue eeno
For Each element1 In Workbooks
   If element1.Name = tt Then q = True
   Next element1
    
    Dim wb As Workbook
    If (q = False) Then
        Set wb = Workbooks.Open(tt)
        Else
        Set wb = Workbooks(tt)
        End If
        
    Dim element As Worksheet
    q = False
    'Set wb = Workbooks.Open(tt)
    For Each element In wb.Worksheets
        If element.Name = s3 Then q = True
        Next element
    If (q = False) Then   'anee eeno n aaoie ia nou, oiaaa aoaai nicaaaaou
       ' Set wb = Workbooks.Open(tt)
        wb.Sheets("Oaaeii").Copy After:=wb.Sheets(Sheets.Count) 'eiie?oai oaieo
        wb.Sheets(Sheets.Count).Name = s3
        Range("A1").FormulaR1C1 = s1
        Range("A3").FormulaR1C1 = s3
        wb.Sheets(1).Select 'auae? 1 eeno
        Range("A1").Activate 'y?aeea A1 aaeaai aeoeaiie
        
        
        'Ec iae?ina
        'Sub Caienu2()
'
' Caienu2 Iae?in
' Iae?in caienai 20.11.2013 (814-2)
'
 
'
    'Range("A5").Select
   ' ActiveCell.FormulaR1C1 = "='06.12.2013'!R[-2]C"
   ' Range("A5").Select
    'Selection.AutoFill Destination:=Range("A5:D5"), Type:=xlFillDefault
    'Range("A5:D5").Select
'End Sub
        
        Dim NRows As Integer 'iienuaaai iiaua no?iee e noieaou aey nnueee/eiee?anoai no?ie
        Dim NColumns As Integer
        NRows = ActiveCell.CurrentRegion.Rows.Count 'ia?aoiaei e iaeanoe aeoeaiie y?aeee
        NColumns = ActiveCell.CurrentRegion.Columns.Count
        ActiveCell.Offset(NRows).Activate
        ActiveCell.FormulaR1C1 = "='" & s3 & "'!R[" & 2 - NRows & "]C[0]"
        ActiveCell.Offset(0, 1).FormulaR1C1 = "='" & s3 & "'!R[" & 2 - NRows & "]C[0]"
        ActiveCell.Offset(0, 2).FormulaR1C1 = "='" & s3 & "'!R[" & 2 - NRows & "]C[0]"
        ActiveCell.Offset(0, 3).FormulaR1C1 = "='" & s3 & "'!R[" & 2 - NRows & "]C[0]"
        ActiveCell.Offset(0, 4).FormulaR1C1 = "=RC[-2]-RC[-1]"
        Set First = ActiveCell.Offset(0, NColumns - 1)
'naaeaou oieo, eio iieo? eiy oaeea, aaa aoaoo eaoe ?an?aou
'i?iaa?eouienaou i?ioaa, anou ee oaee
'neeaeaaieai nicaaao eiy ianyo_aia
'MsgBox ReadData() 'Abcd
 
End If
 
End Sub
 
 
Function ReadTXTfile(ByVal filename As String) As String
Set fso = CreateObject("scripting.filesystemobject")
Set ts = fso.OpenTextFile(filename, 1, True): ReadTXTfile = ts.ReadAll: ts.Close
Set ts = Nothing: Set fso = Nothing
End Function
 
Public Sub ReadData(filename)
Set fso = CreateObject("scripting.filesystemobject") '?aaioa n oaeeaie
Set ts = fso.OpenTextFile(filename, 1, True)
 s1 = ts.ReadLine
 s2 = ts.ReadLine
 s3 = ts.ReadLine
ts.Close
Set ts = Nothing: Set fso = Nothing
 
End Sub
 
Public Sub Prov(Name)
Set fso = CreateObject("scripting.filesystemobject")
If fso.FileExists(Name) Then
MsgBox "Nouanoaoao"
Else
MsgBox "Iao"
End If
End Sub
 
Public Function U()  'oieo neeaeaaiey
Dim Name As String
Name = ""
Name = s1 + "_" + s2 + ".xls"
U = Name
'MsgBox U
Sheets("Noa?o").Activate 'naaeaee aeoeaiie ia?aue eeno
End Function
 
Sub III()
 
'III Iae?in - caienu a y?aeeo A1
    'Dim NRows As Integer 'iienuaaai iiaua no?iee e noieaou aey nnueee/eiee?anoai no?ie
    'Dim NColumns As Integer
    'NRows = ActiveCell.CurrentRegion.Rows.Count 'ia?aoiaei e iaeanoe aeoeaiie y?aeee
    'NColumns = ActiveCell.CurrentRegion.Columns.Count
    'ActiveCell.Offset(NRows).Activate
    'ActiveCell.FormulaR1C1 = "='" & s3 & "'!R[" & 2 - NRows & "]C[0]"
    'ActiveCell.Offset(0, 1).FormulaR1C1 = "='" & s3 & "'!R[" & 2 - NRows & "]C[0]"
    'ActiveCell.Offset(0, 2).FormulaR1C1 = "='" & s3 & "'!R[" & 2 - NRows & "]C[0]"
    'A ctiveCell.Offset(0, 3).FormulaR1C1 = "='" & s3 & "'!R[" & 2 - NRows & "]C[0]"
    'ActiveCell.Offset(0, 4).FormulaR1C1 = "=RC[-2]-RC[-1]"
    'Set First = ActiveCell.Offset(0, NColumns - 1)
    
    Dim NR As Integer
    Dim NC As Integer
    NR = ActiveCell.CurrentRegion.Rows.Count
    NC = ActiveCell.CurrentRegion.Columns.Count
    ActiveCell.Offset(NR).Activate
    Range("B1").Select
    'ActiveCell.FormulaR1C1 = "='" & s3 & "'!R[" & 3 - NR & "]C[0]"
    ActiveCell.FormulaR1C1 = "=R[3]C[-1]"
    Range("B2").Select
  
End Sub
 
Private Sub Iino?ieouAeaa?aiio_click() '?aaioa n eiiieie
Sheet("Aeaa?aiia").Activate
End Sub
Private Sub CommandButton1_Click()
Sheets("Aeaa?aiia").Cells(7, 10) = "Aeaa?aiia"
End Sub