Useful Macros

 Jump

Sub JumpTo()

'Description: Select the specified row or column

  'If row is specified, active column is used

  'If column is specified, active row is used

Dim sResult As String

  On Error Resume Next 'Blanket error handling  

  'Display inputbox to prompt user for row/column

  sResult = InputBox("Type a row number or column letter and press Enter.", "Jump To...")  

  If IsNumeric(sResult) Then 'Select row

    Cells(sResult, ActiveCell.Column).Select

  Else 'Select column

    Cells(ActiveCell.Row, sResult).Select

  End If

End Sub

Delimited by Pipe Operator

Sub Separator()

Columns("A:A").Select

    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _

        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _

        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _

        :="|", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), _

        TrailingMinusNumbers:=True

End Sub

MS Office 2016 100% Working

 Activate MS Office 2016 Without a Product Key

Step-I: Open a blank text file and paste the following code in it.

@echo off

title Activate Microsoft Office 2016 ALL versions for FREE!&cls&echo ============================================================================&echo #Project: Activating Microsoft software products for FREE without software&echo ============================================================================&echo.&echo #Supported products:&echo - Microsoft Office Standard 2016&echo - Microsoft Office Professional Plus 2016&echo.&echo.&(if exist "%ProgramFiles%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles%\Microsoft Office\Office16")&(if exist "%ProgramFiles(x86)%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles(x86)%\Microsoft Office\Office16")&(for /f %%x in ('dir /b ..\root\Licenses16\proplusvl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul)&(for /f %%x in ('dir /b ..\root\Licenses16\proplusvl_mak*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul)&echo.&echo ============================================================================&echo Activating your Office...&cscript //nologo ospp.vbs /setprt:1688 >nul&cscript //nologo ospp.vbs /unpkey:WFG99 >nul&cscript //nologo ospp.vbs /unpkey:DRTFM >nul&cscript //nologo ospp.vbs /unpkey:BTDRB >nul&cscript //nologo ospp.vbs /unpkey:CPQVG >nul&cscript //nologo ospp.vbs /inpkey:XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99 >nul&set i=1

:server

if %i%==1 set KMS=kms7.MSGuides.com

if %i%==2 set KMS=kms8.MSGuides.com

if %i%==3 set KMS=kms9.MSGuides.com

if %i%==4 goto notsupported

cscript //nologo ospp.vbs /sethst:%KMS% >nul&echo ============================================================================&echo.&echo.

cscript //nologo ospp.vbs /act | find /i "successful" && (echo.&echo ============================================================================&echo.&echo #My official blog: MSGuides.com&echo.&echo #How it works: bit.ly/kms-server&echo.&echo #Please feel free to contact me at msguides.com@gmail.com if you have any questions or concerns.&echo.&echo #Please consider supporting this project: donate.msguides.com&echo #Your support is helping me keep my servers running everyday!&echo.&echo ============================================================================&choice /n /c YN /m "Would you like to visit my blog [Y,N]?" & if errorlevel 2 exit) || (echo The connection to my KMS server failed! Trying to connect to another one... & echo Please wait... & echo. & echo. & set /a i+=1 & goto server)

explorer "http://MSGuides.com"&goto halt

:notsupported

echo.&echo ============================================================================&echo Sorry! Your version is not supported.&echo Please try installing the latest version here: bit.ly/downloadmsp

:halt

pause >nul

Step-II: Save the text file as a batch file and name it "activate.cmd".

Step-III: Run the batch file as "Administrator" and Microsoft Office 2016 will be successfully activated.