| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 06:52:19 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=dbbfc5a2242d80e971d8f32304793ffc1ccc5368a90945ac510c10c1eb541c31a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22XutKJr6WQDtNgv0VrKa7sFV5YH6BB4Mm%22%3B%7D; HttpOnly; Path=/
cf-ray: 98cc6f1e7f846cd6-BLR
VBA Code - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '=========================Declarations=========================
- Public MySelection As String
- Public IsFile As Boolean
- Public Sub GetSelection()
- MySelection = ActiveCell.Value
- End Sub
- Public Sub LinkCheck()
- 'MySelection = ActiveCell.Value
- If Len(ActiveCell.Value) > 0 And Left(ActiveCell.Value, 1) = "~" Then
- MySelection = Mid(ActiveCell.Value, 2)
- End If
- End Sub
- Public Sub FileCheck()
- IsFile = False
- If ActiveCell.Value = "Open Me" Then
- MySelection = ActiveCell.Offset(-1, 0).Value ' Offset(-1, 0) moves one row up from the active cell
- Range("N8").Value = MySelection
- Range("N9:N10000").Font.ColorIndex = xlAutomatic
- IsFile = True
- ElseIf ActiveCell.Value = "Open Me!" Then
- MySelection = ActiveCell.Offset(-1, 0).Value ' Offset(-1, 0) moves one row up from the active cell
- MySelection = Left(MySelection, Len(MySelection) - 1)
- Range("N8").Value = MySelection
- Range("N9:N10000").Font.ColorIndex = xlAutomatic
- IsFile = True
- End If
- End Sub
- Public Sub AutoFit()
- Columns("B:L").EntireColumn.AutoFit
- End Sub
- Public Sub FormatSelection()
- Call GetSelection
- Call LinkCheck
- Call FileCheck
- End Sub
- Sub refresh()
- Range("N9:N10000").Font.ColorIndex = xlAutomatic
- End Sub
- '=========================OPEN=========================
- Sub Open0()
- Call FormatSelection
- If IsFile Then
- Exit Sub
- End If
- Range("C8").Value = Range("B8") + MySelection
- Call AutoFit
- End Sub
- Sub Open1()
- Call FormatSelection
- If IsFile Then
- Exit Sub
- End If
- Range("D8").Value = Range("C8").Value + MySelection
- Call AutoFit
- End Sub
- Sub Open2()
- Call FormatSelection
- If IsFile Then
- Exit Sub
- End If
- Range("E8").Value = Range("D8").Value + Selection
- Call AutoFit
- End Sub
- Sub Open3()
- Call FormatSelection
- If IsFile Then
- Exit Sub
- End If
- Range("F8").Value = Range("E8").Value + Selection
- Call AutoFit
- End Sub
- Sub Open4()
- Call FormatSelection
- If IsFile Then
- Exit Sub
- End If
- Range("G8").Value = Range("F8").Value + Selection
- Call AutoFit
- End Sub
- Sub Open5()
- Call FormatSelection
- If IsFile Then
- Exit Sub
- End If
- Range("H8").Value = Range("G8").Value + Selection
- Call AutoFit
- End Sub
- Sub Open6()
- Call FormatSelection
- If IsFile Then
- Exit Sub
- End If
- Range("I8").Value = Range("H8").Value + Selection
- Call AutoFit
- End Sub
- Sub Open7()
- Call FormatSelection
- If IsFile Then
- Exit Sub
- End If
- Range("J8").Value = Range("I8").Value + Selection
- Call AutoFit
- End Sub
- Sub Open8()
- Call FormatSelection
- If IsFile Then
- Exit Sub
- End If
- Range("K8").Value = Range("J8").Value + Selection
- Call AutoFit
- End Sub
- Sub Open9()
- Call FormatSelection
- If IsFile Then
- Exit Sub
- End If
- Range("L8").Value = Range("K8").Value + Selection
- Call AutoFit
- End Sub
- '=========================CLOSE=========================
- Sub Close1()
- Range("C8").Value = 0
- Call AutoFit
- End Sub
- Sub Close2()
- Range("D8").Value = 0
- Call AutoFit
- End Sub
- Sub Close3()
- Range("E8").Value = 0
- Call AutoFit
- End Sub
- Sub Close4()
- Range("F8").Value = 0
- Call AutoFit
- End Sub
- Sub Close5()
- Range("G8").Value = 0
- Call AutoFit
- End Sub
- Sub Close6()
- Range("H8").Value = 0
- Call AutoFit
- End Sub
- Sub Close7()
- Range("I8").Value = 0
- Call AutoFit
- End Sub
- Sub Close8()
- Range("J8").Value = 0
- Call AutoFit
- End Sub
- Sub Close9()
- Range("K8").Value = 0
- Call AutoFit
- End Sub
- Sub Close10()
- Range("L8").Value = 0
- Call AutoFit
- End Sub
- Sub CloseFile()
- Range("N8").Value = 0
- Rows("9:10000").EntireRow.AutoFit
- End Sub
Advertisement
-
⭐✅ Swapzone Glitch ✅ Working⭐⭐⭐ M
JavaScript | 1 sec ago | 0.24 KB
-
⭐✅ Trading Profit Method ✅ NEVER SEEN BEFORE...
JavaScript | 1 sec ago | 0.24 KB
-
⭐⭐⭐Swapzone.io Glitch (Working)⭐⭐
Java | 11 sec ago | 0.10 KB
-
⭐ Instant BTC Profit Method ✅ NEVER SEEN BEFO...
JavaScript | 11 sec ago | 0.24 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ H
JavaScript | 12 sec ago | 0.24 KB
-
⭐✅ MAKE $2000 INSTANTLY ✅ NEVER SEEN BEFORE ⭐...
JavaScript | 20 sec ago | 0.24 KB
-
⭐⭐⭐Crypto Accounts⭐⭐
Java | 23 sec ago | 0.10 KB
-
⭐⭐Exchange Exploit⭐⭐ M
JavaScript | 23 sec ago | 0.24 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
