Code – Adjust Excel Screen to 75% and Set Column A and Row 1 Width to 0.5 inches Here’s a tutorial on how to use the VBA code to adjust the Excel screen to 75% and set the width of column A and row 1 to 0.5: Open Microsoft Excel and press ALT + F11…
Sub HighlightCommentedCells() ActiveSheet.Select Selection.SpecialCells(xlCellTypeComments).Select Selection.Style = “Note” End Sub
Sub SortSheetbyName() Application.ScreenUpdating = False Dim ShCount As Integer, i As Integer, j As Integer ShCount = Sheets.Count For i = 1 To ShCount – 1 For j = i + 1 To ShCount If Sheets(j).Name < Sheets(i).Name Then Sheets(j).Move before:=Sheets(i) End If Next j Next i Application.ScreenUpdating = True MsgBox “All sheets sorted!” End…
Sub Enable_Edit() If Application.ProtectedViewWindows.Count > 0 Then Application.ActiveProtectedViewWindow.Edit End If End sub
Sub DeleteActiveWorkbook() If Application.ProtectedViewWindows.Count > 0 Then Application.ActiveProtectedViewWindow.Edit End IfDim xFullName As String xFullName = Application.ActiveWorkbook.FullName ActiveWorkbook.Saved = True Application.ActiveWorkbook.ChangeFileAccess xlReadOnly Kill xFullName Application.ActiveWorkbook.Close False End Sub
Code – Delete shapes in worksheet Helping others at work not only benefits those we are helping, but it can also have a positive impact on ourselves. When we assist our coworkers, we are able to deepen our relationships with them and improve team cohesion. This can lead to a more enjoyable work environment and…
Sub Namelist() ‘Lists the sheet names in a workbook Dim i As Integer Sheets.Add Before:=Sheets(1) For i = 2 To Worksheets.Count Sheets(1).Cells(1, 1).Value = “Worksheet names” Sheets(1).Cells(i, 1).Value = Worksheets(i).Name Next End Sub
Sub Unhide() ‘Unhides sheets in a workbook Dim x As Worksheet For Each x In Worksheets x.Visible = xlSheetVisible Next End Sub