[RESOLVED] Msgbox

I am getting an "Expected: End of Statement error with the following code. Does anyone know why... I can't figure it out.

VB Code:

Msg1 = MsgBox("Before you start, please ensure that you know the tab and cell you wish to copy from. For example, for Maximum Roundness Deviation you want to copy from the 'E34' cell of the 'General' tab.", vbOKCancel, "Before you start", vbInformation) As VbMsgBoxResult

Remove the "As VbMsgBoxResult" from the end - you cannot tell the MsgBox function what type to return. ;)

You should declare Msg1 as VbMsgBoxResult :

VB Code:

Dim Msg1 As VbMsgBoxResult 
Msg1 = MsgBox("Before you start, please ensure that you know the tab and cell you wish to copy from. For example, for Maximum Roundness Deviation you want to copy from the 'E34' cell of the 'General' tab.", vbOKCancel, "Before you start", vbInformation)