Help with VBA code

[APML]

Hi All, I have the following code, which I've tried to join from 3 separate codes, there is an issue with it, was hoping someone would be able to help me.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Update the named range "CurrentRow_Pivot" whenever the selection changes
With ThisWorkbook.Names("CurrentRow_Pivot")
.Name = "CurrentRow_Pivot"
.RefersToR1C1 = "=" & ActiveCell.Row
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
'Activate the sheet with the same name as the value entered in cell C5
On Error Resume Next
If Not (Application.Intersect(Range("C5"), Target) Is Nothing) Then
ThisWorkbook.Sheets(Target.Value).Activate
End If

'Convert any data entered in cell A1 to uppercase
If Target.Address = "CodePivotPoints" Then
Target.Value = UCase(Target.Value)
End If
End Sub

 

[Skyybot]

Depends on what you're trying to do. Worksheet_Change and Worksheet_SelectionChage kind of conflict.

 

[APML]

Depends on what you're trying to do. Worksheet_Change and Worksheet_SelectionChage kind of conflict.

Thx for helping me:
This highlights the current row
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Update the named range "CurrentRow_Pivot" whenever the selection changes
With ThisWorkbook.Names("CurrentRow_Pivot")
.Name = "CurrentRow_Pivot"
.RefersToR1C1 = "=" & ActiveCell.Row
End With
End Sub

This is a pull down list that takes me to other sheets within the workbook
Private Sub Worksheet_Change(ByVal Target As Range)
'Activate the sheet with the same name as the value entered in cell C5
On Error Resume Next
If Not (Application.Intersect(Range("C5"), Target) Is Nothing) Then
ThisWorkbook.Sheets(Target.Value).Activate
End If

This makes sure that anything put into cell named CodePivotPoints converts to uppercase
'Convert any data entered in cell A1 to uppercase
If Target.Address = "CodePivotPoints" Then
Target.Value = UCase(Target.Value)
End If
End Sub

 

[Skyybot]

Copy that. Now, what's the "issue"?