Este fórum está sendo desativado

[aftm]

Boa tarde

Encontrei esta VBA na internet e faz o que eu preciso, mas agora preciso que as formulas sejam apagadas só em determinado intervalo de celulas, aguem pode ajudar?

Sub Remove_todas_formulas_em_todas_planilhas()
Dim Wsh As Worksheet

For Each Wsh In Worksheets
Wsh.Activate
Application.ScreenUpdating = False
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Next
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="D:\work\lcp 01 1\lcp.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False 'Altere o local que vc queira salvar o seu arquivo!!!
ActiveWorkbook.FollowHyperlink Address:= _
"D:\work\lcp 01 1\", NewWindow:= _
False 'Altere o local onde se encontra seu arquivo original no seu HD!!!
Worksheets("lcp.01.1").Activate 'Altere o nome da planilha do seu arquivo original!!!

End Sub


Cumprimento

Fernando

[AfonsoMira]

Boas, tudo bem?

Consegue deixar um ficheiro em anexo para poder ajudar melhor?

Obrigado!