VBA code for message box and focus on a sheet

[Thulasiram]

Hello people,

I have a msgbox like this.

MsgBox "Please click the command button on the sheet7", vbInformation,
"Author"

I require the VB code for the following:
If the user presses the OK button of the msbox above, then the sheet7
must be shown on the screen. (like in VB6 (for example), form7.show)

what would be the VBA code for that..

please help..

Thanks,
Thulasiram

 

[Tom Ogilvy]

ans = MsgBox( "Please click the command button on the sheet7", _
vbInformation + vbOKCancel, "Author")
if ans = vbOk then
Worksheets("Sheet7").Activate
end if

assuming Sheet7 is the tab name. If it is the code name then

Sheet7.Activate

 

[Thulasiram]

Dear Tom,

Thanks and nice to see your reply.
-Thulasiram

 

[Thulasiram]

Dear Tom,

I am facing a compile error:
Variable not defined.. Variable referred here is "ans"

I tried ur code in a new excel file. It works. But, I am trying to
embed the code in

Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, ByVal
target As Range)

So i have to declare the variable 'ans'

So I gave a declaration
dim ans as boolean

but in this case: Runtime error '13': Type mismatch..

Please provide your help to fix this error.

Thanks,
Thulasiram

 

[Tom Ogilvy]

dim ans as Long

--
Regards,
Tom Ogilvy

Dear Tom,

I am facing a compile error:
Variable not defined.. Variable referred here is "ans"

I tried ur code in a new excel file. It works. But, I am trying to
embed the code in

Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, ByVal
target As Range)

So i have to declare the variable 'ans'

So I gave a declaration
dim ans as boolean

but in this case: Runtime error '13': Type mismatch..

Please provide your help to fix this error.

Thanks,
Thulasiram

 

[Thulasiram]

Thanks Tom. Works perfectly

dim ans as Long