View Single Post
 
Old 08-27-2020, 11:46 AM
Logit Logit is offline Windows 10 Office 2007
Expert
 
Join Date: Jan 2017
Posts: 529
Logit is a jewel in the roughLogit is a jewel in the roughLogit is a jewel in the rough
Default

See if this works :

Code:
Option Explicit

Sub Einfügen_New_A_and_Fill_with_Content_SPECIFIC_SHEET()
Dim Data As String
Dim Result As String

Result = InputBox("Provide a sheet name.")
ThisWorkbook.Sheets(Result).Activate

Data = InputBox("What would you like to insert in column A ?")

   ActiveSheet.Cells(1).Resize(ActiveSheet.UsedRange.Rows.Count) = Data

End Sub
Reply With Quote