xlsheetvisible

I'm new at coding. I have put together a code to save several worksheets to a pdf file and it is working except I can't figure out how to have it let me pick the filename and path. As it is it just overwrites the previously saved file. TIA Public Sub SaveSheetsAsPDF() Dim wksAllSheets As...

Hi - I have this code in the sheet tab and it executes on a worksheet change. I'm assuming there is a much easier way to do this? Sheets are labeled by their codenames. Thanks! If Not Intersect(Target, Range("A3")) Is Nothing Then Rows.Hidden = False Select Case Target.Value...

Hi The following code works to make visible all sheets following different views, and i have been trying every syntax for a 1 line solution For Each ws In Sheets ws.Visible = xlSheetVisible Next ws Is there a command like...Application.Sheets.Visible =...

I'm trying to use this code (red line) to determine what row the current date can be found in column B of the worksheet. With ws_wstoview If .Visible = xlSheetVisible Then .Visible = xlSheetHidden Worksheets("FRONT").Activate...

Guys, I have eventually managed to work out how to add a custom Ribbon with custom buttons in my project, but I am really struggling to understand how to do 2 things; 1) Hide certain buttons if certain criteria is met 2) Disable certain buttons if certain criteria is met I have followed a...

This macro will add 30 seconds to the close process. I can not see why it would take that long. Any ideas? Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ScreenUpdating = False Sheets("START").Visible = xlSheetVisible Application.WindowState = xlMaximized For Each ws...

I have the following code that's not working. It asks for the password and even provides the message if the incorrect password is entered. But it won't unhide the worksheets. The code is getting hung on ws.Visible = xlSheetVisible. What have I done incorrectly. Assistance is greatly...

Hi Could someone help me with these 2 lines in red; Dim ws As Worksheet If CheckBox1 = True Then If ws.Name Like "*3CT*" Then ws.Visible = xlSheetVisible End If ElseIf CheckBox2 = True Then If ws.Name Like "*3CT*" Then...

Afternoon all. Got a slight problem I'd appreciate some help with. The form I've made relies on someone copying data from a separate location and then clicking on a button that generates and saves as a copy. Where I'm struggling is figuring out where to put the OnError code when they haven't...

Hi, This is driving me crazy! The idea... The user selects a value in a drop-down list, which triggers some sheets to be hidden-unhidden, and fills-up a cell with a message of the outcome. I want to use a single UDF to which I pass variables as needed (i.e. re-use the UDF for each sheet to...

I have a spreadsheet with significant VBA and five sheets. Only one sheet should be visible to the user. I currently have the main sheet and one other visible and three very hidden. I tried to hide the one sheet and I get an error, "Unable to set the visible property of the worksheet class." I...