/ _ \
\_\(_)/_/
 _//"\\_     more on JOHLEM.net
  /   \	                 
  
0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0



==========================================
         VBA Excel Cheatsheet
==========================================

--- FILES ---

'Open a Workbook
Set wb = Workbooks.Open("C:\Path\To\File.xlsx")

'Save a Workbook
wb.Save

'Save a Workbook As
wb.SaveAs "C:\Path\To\NewFile.xlsx"

'Close a Workbook
wb.Close

'Create a New Workbook
Set wb = Workbooks.Add

--- WORKSHEETS ---

'Activate a Worksheet
Sheets("Sheet1").Activate

'Add a New Worksheet
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "NewSheet"

'Delete a Worksheet
Application.DisplayAlerts = False
Sheets("Sheet1").Delete
Application.DisplayAlerts = True

'Copy a Worksheet
Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)

'Move a Worksheet
Sheets("Sheet1").Move After:=Sheets("Sheet2")

--- COLUMNS & ROWS ---

'Copy a Column to Another Worksheet
Sheets("Sheet1").Columns("A").Copy Destination:=Sheets("Sheet2").Columns("B")

'Insert a New Column
Columns("B").Insert

'Delete a Column
Columns("B").Delete

'Hide a Column
Columns("B").Hidden = True

'Unhide a Column
Columns("B").Hidden = False

--- CELLS ---

'Copy and Paste a Cell
Range("A1").Copy Destination:=Range("B1")

'Find a Cell Containing Specific Text
Set cell = Sheets("Sheet1").Cells.Find(What:="TextToFind", LookIn:=xlValues, LookAt:=xlPart)

'Find a Cell with Text Starting with a Specific String
Set cell = Sheets("Sheet1").Cells.Find(What:="StartText*", LookIn:=xlValues, LookAt:=xlPart)

'Replace Text in Cells
Sheets("Sheet1").Cells.Replace What:="OldText", Replacement:="NewText", LookAt:=xlPart

'Set Value of a Cell
Range("A1").Value = "New Value"

'Get Value of a Cell
val = Range("A1").Value

'Set Formula in a Cell
Range("A1").Formula = "=SUM(B1:B10)"

--- MISCELLANEOUS ---

'Show a Message Box
MsgBox "Hello, World!"

'Create a Loop to Iterate Over Rows
Dim i As Integer
For i = 1 To 10
    Cells(i, 1).Value = "Row " & i
Next i

'Exit a Subroutine
Exit Sub

--- ERROR HANDLING ---

'On Error Resume Next (Skip error and continue)
On Error Resume Next

'On Error GoTo 0 (Reset error handling)
On Error GoTo 0

'On Error GoTo ErrorHandler (Go to specific error handler)
On Error GoTo ErrorHandler
'Your code here...
Exit Sub
ErrorHandler:
MsgBox "An error occurred"

==========================================
     End of VBA Excel Cheatsheet
==========================================