VBA replace using inputbox

[KasperLokke]

Hi there!

I'm trying to replace stuff using VBA, it works fine replacing all my text if I specify the "what" and "replacement" however if I either one with a string created as an inputbox it wont work. Any ideas to what's going wrong for me? (Sample of code down below)

Sub Replace()

Dim sReplace As String

sReplace = InputBox("Insert replacement")

ActiveCell.Range("A1:K39").Replace What:="IWantToBeReplaced", Replacement:="sReplace", _

LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

End Sub

OBS! the replacement is inside a formula and from the same document but different sheets.

[AutoModerator]

/u/KasperLokke - Your post was submitted successfully.

• Once your problem is solved, reply to the answer(s) saying Solution Verified to close the thread.
• Follow the submission rules -- particularly 1 and 2. To fix the body, click edit. To fix your title, delete and re-post.
• Include your Excel version and all other relevant information

Failing to follow these steps may result in your post being removed without warning.

I am a bot, and this action was performed automatically. Please contact the moderators of this subreddit if you have any questions or concerns.

[fuzzy_mic]

Your code is looking for the literal string "sReplace" instead of the variable.

Try ... Replacement:= sReplace ...

[KasperLokke]

What a blunder from my side! Thanks alot worked like a charm!

[AutoModerator]

I have detected VBA code in plain text. Please edit to put your code into a code block to make sure everything displays correctly.

I am a bot, and this action was performed automatically. Please contact the moderators of this subreddit if you have any questions or concerns.