Macro issue 2

[Farhad]

Hi all,

my problem is to know how can i activate the last tab of an excel file in my
code i am openning several excel files one by one (not at the same time) in
my code and need to activate the last tab of each of them when the file is
open i am usung the code below which i found in MS Excel help but it doesn't
work everyone help me please.

ActiveWindow.ScrollWorkbookTabs Position:=xlLast

thanks,

 

[Gary''s Student]

Once you have opened a workbook, it becomes the Active workbook. So:

Sub lastone()
Sheets(Sheets.Count).Activate
End Sub

should work just fine

 

[Farhad]

Thanks Gary! it worked great
--
Farhad Hodjat

Once you have opened a workbook, it becomes the Active workbook. So:

Sub lastone()
Sheets(Sheets.Count).Activate
End Sub

should work just fine

 

[Gary''s Student]

Thank you for the feedback!

 

[Farhad]

You're Welcome! i have another question how can i check a tab in a excel file
say tab "aaa" if it is exist in the file or not? sorry bugging you again i am
very new in VBA and need to learn.

Thanks,

 

[Gary''s Student]

Function SheetExists(SheetName As String) As Boolean
On Error Resume Next
SheetExists = CBool(Len(ThisWorkbook.Worksheets(SheetName).Name))
End Function


so =sheetexists("aaa") will return True if the sheets exists.