Runtime error 1004 again.

[EBoudreau]

I'm getting the following run time error on the following code in bold:

Sub Capitalise(rngToConvert As Range)


    Dim rng As Range
    
    For Each rng In rngToConvert
        With rng
            If Not .HasFormula Then .Value = UCase(.Value)
        End With
    Next rng


End Sub
Sub ConvertToTime(rngToConvert As Range)


    Dim rng As Range
    
    For Each rng In rngToConvert
        rng.Value = Format(rng.Value, "00\:00")
    Next rng
    
    rngToConvert.NumberFormat = "HH:MM"


End Sub

I have the cells formatted as "13:50" and have tried it as "hh:mm".

Any ideas?

 

[RoryA]

Is the sheet protected?

 

[EBoudreau]

Yes it is. Always has been but now for some reason when i got down to a certain cell number, it started giving me an error. The cells are all within the range specified in the code though.

 

[EBoudreau]

But when I unprotect the sheet it works fine. How can that be resolved so it works when protected.

 

[RoryA]

Did you allow formatting cells when you protected the sheet?

 

[Teeroy]

Possibly some cells are locked and some are unlocked.

 

[EBoudreau]

Did you allow formatting cells when you protected the sheet?

I didn't have formatting possible in the cells above where the problem started occurring. But I'll look into it and see if allowing that helps.

 

[EBoudreau]

Possibly some cells are locked and some are unlocked.

I'll look into this as well. They should be unlocked because I can enter data, but formatting in the code isn't happening.

 

[EBoudreau]

I looked into it and found that there was code that was missing that was auto protecting the form which I removed to make a lot of edits but apparently had to re-insert to make the form work properly.
Thank you all for chiming in! This community is a great help!