Hello,
Can there be a message popup if the file path isn't entered correctly? Then exit sub so the user can correct the file path.
"Please correct the file path"
Thank you for your help
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target...
Hi,
I have office 365 and when editing my workbook the autosave to one drive sometimes isn't working.
Does anyone know why and how to fix please?
Thank you
I found a way but it might be a longer method:
I recorded Macro 1 and called it at the end of this code
Sub Macro1()
'
' Macro1 Macro
'
'
Columns("A:A").Select
With Selection.Font
.Name = "Bookman Old Style"
.Strikethrough = False
.Superscript = False...
Hello,
Can the font and size of the worksheet names from this code be:
bookman old style and size 16 bold
Thank you
Sub ListSheets()
Dim ws As Worksheet
Dim x As Integer
x = 3
Sheets("Menu").Range("A3:A20").Clear
For Each ws In Worksheets
Sheets("Menu").Cells(x, 1).Select...
This was the code that does work after recording how Excel does the macro:
Sub ProtectWorkbook()
Dim wsheet As Worksheet
For Each wsheet In ActiveWorkbook.Worksheets
wsheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFiltering:=True...
Well I was wrong. The protection isn't doing what I expected.
I want to be able to only select Unlocked cells on all sheets and also on the Invoice Payment sheet allow the slicers to function.
Can this be done please?
I tried this and it worked:
Sub ProtectWorkbook()
Dim wsheet As Worksheet
For Each wsheet In ActiveWorkbook.Worksheets
wsheet.Protect DrawingObjects, AllowFiltering
Next wsheet
Range("F3").Select
ActiveWorkbook.Save
End Sub