Sub End Sub Function End Function Dim Set As Integer Long String Double Boolean Object Variant If Then Else ElseIf End If Select Case Case End Select For To Step Next Each In Do Loop Until While Exit With End With On Error GoTo Resume Next Public Private Static Const New Nothing Me Option Explicit Range Cells Rows Columns Value Text Formula Offset Resize Clear ClearContents Delete Copy Paste Select Activate Worksheets Sheets Workbooks Workbook Open Close Save SaveAs Application ScreenUpdating DisplayAlerts Calculation InputBox MsgBox vbOKOnly vbYesNo vbInformation vbCritical Debug.Print Stop Err Number Description CInt CLng CDbl CStr CDate Format Left Right Mid Len InStr Replace Split Join Trim LBound UBound Array Date Time Now Year Month Day Dir Kill Name Environ CreateObject GetObject