73 Shortcuts for Excel

Shortcut - Tweet a Cell Code Version 2 (with URLEncode)

Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub TweetaCell()
'
' TweetaCell Macro
'
' Keyboard Shortcut: Ctrl+Shift+T
'
RunProgram "https://twitter.com/intent/tweet?text=text to tweet" & URLEncode(ActiveCell)

End Sub
Sub RunProgram(sFile, Optional args, Optional runInFolder)
'Version: 1.000
'Purpose: This run passed sFile
  Dim RetVal As Long
  On Error Resume Next
  RetVal = ShellExecute(0, "open", sFile, "", "", 1)
End Sub

Public Function URLEncode( _
   StringVal As String, _
   Optional SpaceAsPlus As Boolean = False _
) As String

  Dim StringLen As Long: StringLen = Len(StringVal)

  If StringLen > 0 Then
    ReDim result(StringLen) As String
    Dim i As Long, CharCode As Integer
    Dim Char As String, Space As String

    If SpaceAsPlus Then Space = "+" Else Space = "%20"

    For i = 1 To StringLen
      Char = Mid$(StringVal, i, 1)
      CharCode = Asc(Char)
      Select Case CharCode
        Case 97 To 122, 65 To 90, 48 To 57, 45, 46, 95, 126
          result(i) = Char
        Case 32
          result(i) = Space
        Case 0 To 15
          result(i) = "%0" & Hex(CharCode)
        Case Else
          result(i) = "%" & Hex(CharCode)
      End Select
    Next i
    URLEncode = Join(result, "")
  End If
End Function