liabilityquek
New Member
- Joined
- Oct 17, 2021
- Messages
- 25
- Office Version
- 2019
- Platform
- Windows
Hi
I would like to insert a username code under the existing Private Sub (). But whenever the code is triggered, a debug error surfaces and the workbook closes. Is there a way to fix this issue?
I would like to insert a username code under the existing Private Sub (). But whenever the code is triggered, a debug error surfaces and the workbook closes. Is there a way to fix this issue?
VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TriggerCell As Range
Set TriggerCell = Range("C7")
If Not Application.Intersect(TriggerCell, Target) Is Nothing Then
If TriggerCell.Value = "Yes" Then
Rows("14:16").Hidden = False
Rows("17:25").Hidden = True
ElseIf TriggerCell.Value = "Credit Re-assessment" Then
Rows("14:25").Hidden = False
ElseIf TriggerCell.Value = "No" Then
Rows("14:25").Hidden = False
ElseIf TriggerCell.Value = "No/Credit Re-assessment - Sole Proprietorship (Owned by Company)" Then
Rows("14:25").Hidden = False
ElseIf TriggerCell.Value = "Please Select" Then
Rows("14:25").Hidden = False
End If
End If
Dim User_Name As String
User_Name = Application.UserName
Range("C4") = User_Name