VBA and SharePoint

[Ronni f]

Hi,

I posted a thread in April and support was fab. I was given the below formula to create what was needed. I've been asked to put the excel sheet in SharePoint and when I do the formula doesn't work.
I've tried to upload the sheet and then tried to Save As, but no joy.
Is there anything I can do to get this to work?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ckArea As String, myC As Range
'
ckArea = "K2:M10000"                  '<<< The range you wish to monitor for changes
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range(ckArea)) Is Nothing Then
    If UCase(Target.Value) = "INSPECTED" Then
        Target.Offset(0, 1).ClearContents
        Target.Offset(0, 2).Value = Date
    End If
End If
End Sub

Thanks in advance
Ronni

 

[Fluff]

Do you mean that the macro doesn't work if you open the file in xl online?

 

[Ronni f]

Do you mean that the macro doesn't work if you open the file in xl online?

Hiya

No. It's when I upload to SharePoint or save to a SharePoint folder and then open it there to work on it.

Thx

 

[Fluff]

Are you opening the file in the desktop app?

 

[Ronni f]

Are you opening the file in the desktop app?

Yes, Both in desktop app and working in SharePoint.
I think I've just got it to work, though.
I opened it through one drive and saved a copy in my sharepoint folder, I then opened it in the desktop app and tried the macro and it populated the cells as it should.

 

[Fluff]

Glad you sorted it & thanks for the feedback.