Reset Screen Resolution

Tlafferty,

The data type IS Long; see the DIM statement. However, trying your code, I STILL get the Error 13 Type Mismatch.

Sorry, I forgot there ARE other parts.Add this to your module:

Option Explicit
 
Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1

and add this to ThisWorkbook

Option Explicit
 
Private Sub Workbook_Open()
     
    Call VerifyScreenResolution
     
End Sub