.screenupdating

Hi, Previously I had 1 listbox with the 52 weeks of the year. Listed WK 1 to WK 52. I have change my userform now because the listbox was too long. I now have 2 listboxes. Listbox1 from WK 1 to WK 26. ListBox2 from WK 27 to WK 52. I have the following code that worked when it was just the 1...

Hi everyone - I am trying to re use a Macro but I am facing some issues. Could someone help me to do so? The aim is to print a template which values are based on another spreadsheet. The macro should scroll from a list (which it seems I cannot change) and produce this template for each set of...

Hi, i have the following sheet code: Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo myerror With Application .EnableEvents = False .ScreenUpdating = False If Target.Cells.Count = 1 Then If Left(Target.Address, 3) = "$F$" And Target <> "" Then Range("H" &...

Hi, I have the following codes that hides the ribbon and that but it also stops me from copy and pasting from another sheet. Private Sub Workbook_Activate() With Application .ScreenUpdating = False .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"...

Hello- Trying to figure out how to do a timestamp that can be embedded within a macro (so I don't have to copy it to every sheet). Here's the coding I was running as a Worksheet_Change thanks Private Sub Worksheet_Change(ByVal Target As Range) With Application .EnableEvents =...

How to I change the code below so it will run for all sheets in the workbook? Sub Splitbook() MyPath = ThisWorkbook.Path For Each sht In ThisWorkbook.Sheets sht.Copy ActiveSheet.Cells.Copy ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats...

Good afternoon, I have the following code which works well at resizing all the pictures to a set size. I can't however work out how to centre all the pictures at the same time though! Sub Resize_Images1() Dim i As Long With Application .ScreenUpdating = False: .DisplayAlerts =...

Hello, I need to paste my header row into every blank row on my sheet. The header is at Row 2. Each blank row is spaced 5 rows apart. I've tried several variations of his code, to no success; ActiveSheet.UsedRange.Select Dim i As Long With Application .Calculation = xlCalculationManual...

I am interested in using this great VBA that I borrowed from MrExcel but instead of selecting all of column "d" to trigger a time stamp I would like to use a selected range of cells...say range c3:f100. Can someone help me adjust this VBA...THANKS Option Explicit Private Sub...

Hello, I am trying to get this code to copy and paste to the body of an email before sending it out. the cells that need to be copied are B4 : J13. I cant get it to display the email? Any help would be greatly appreciated. Thank you - Sub SendEmail() Dim SendingRng As Range...