VBA to clear columns but not protected cells

[oblix]

Hi there want to create vba to clear cells on spread sheet
In columns G, and I to AM
The problem is that there are protected cells I dont want to clear
I tried something like this in column h to test but it also clears the protected cells

Sub EmptyStockCount()

On Error Resume Next
Sheets("Blank Stock Sheet").Columns("h:h").Value = vbNullString
On Error GoTo 0

End Sub
Dont understand what I amdoing Wrong
please some assist

 

[oblix]

Unfortunately it is not clearing the data Rick.
Merged cells or what can the problem be.
It runs the code.......without errors, but does not clear anything.

 

[Rick Rothstein]

My fault... try it this way

Sub Test()
  Application.FindFormat.Clear
  Application.FindFormat.Locked = False
  Sheets("Blank Stock Sheet").[G:G,I:M].Replace "", "", SearchFormat:=True, ReplaceFormat:=False
  Application.FindFormat.Clear
End Sub

 

[oblix]

Still not working Rick

 

[Rick Rothstein]

Just so you know, it works fine on my test case with the data I make up which means there is something about your data or sheet that you have not told us about. Can you post a copy of your workbook (desensitize and sensitive info) on DropBox, mark it for sharing and post the link they provide to you here so we can see exactly what your data looks like.

 

[oblix]

Thanks Rick
I also believe its my data
Will try this DropBox thing